https://gcc.gnu.org/g:bba999a7f330cdf093eb20cace8d562237caeb88
commit r16-6568-gbba999a7f330cdf093eb20cace8d562237caeb88 Author: Steve Kargl <[email protected]> Date: Wed Jan 7 21:09:50 2026 -0800 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. Diff: --- 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 2d799b129725..23ab1e599f3a 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
