KJ16609/gcc-reflection
1
0
Fork 0
mirror of https://forge.sourceware.org/marek/gcc.git synced 2026-02-22 12:00:11 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fortran: Fix namelist with use association and renaming

Browse Source 
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.
This commit is contained in:
Steve Kargl
2026-01-07 21:09:50 -08:00
committed by Jerry DeLisle
parent fd8686b35b
commit bba999a7f3
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
gcc/fortran/trans-io.cc
View File

@@ -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