From: Steve Kargl Date: Thu, 8 Jan 2026 05:09:50 +0000 (-0800) Subject: Fortran: Fix namelist with use association and renaming X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=bba999a7f330cdf093eb20cace8d562237caeb88;p=thirdparty%2Fgcc.git 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 --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