From bba999a7f330cdf093eb20cace8d562237caeb88 Mon Sep 17 00:00:00 2001 From: Steve Kargl Date: Wed, 7 Jan 2026 21:09:50 -0800 Subject: [PATCH] Fortran: Fix namelist with use association and renaming The previous commit for this PR fails on FreeBSD. The fix here is the original provided by the author. The test case remains unchanged. PR fortran/123321 gcc/fortran/ChangeLog: * trans-io.cc (transfer_namelist_element): Adjust the conditions determining when to use the local name or the var name to build the object name. --- gcc/fortran/trans-io.cc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/gcc/fortran/trans-io.cc b/gcc/fortran/trans-io.cc index 2d799b12972..23ab1e599f3 100644 --- a/gcc/fortran/trans-io.cc +++ b/gcc/fortran/trans-io.cc @@ -1699,8 +1699,7 @@ transfer_namelist_element (stmtblock_t * block, const char * var_name, /* Build the namelist object name. */ if (sym && sym->attr.use_rename && sym->ns->use_stmts->rename - && sym->ns->use_stmts->rename->local_name - && sym->ns->use_stmts->rename->local_name[0] + && strlen(sym->ns->use_stmts->rename->local_name) > 0 && strcmp(sym->ns->use_stmts->rename->use_name, var_name) == 0) string = gfc_build_cstring_const (sym->ns->use_stmts->rename->local_name); else -- 2.47.3