diff options
| author | Steve Kargl <kargl@gcc.gnu.org> | 2024-02-14 14:40:16 -0800 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2024-02-14 14:42:19 -0800 |
| commit | 8221201cc59870579b9dc451b173f94b8d8b0993 (patch) | |
| tree | 1ab6592592bc2fef16217a9218fe0438b9a991f7 /gcc/fortran/trans-io.cc | |
| parent | 430c772be3382134886db33133ed466c02efc71c (diff) | |
| download | gcc-8221201cc59870579b9dc451b173f94b8d8b0993.zip gcc-8221201cc59870579b9dc451b173f94b8d8b0993.tar.gz gcc-8221201cc59870579b9dc451b173f94b8d8b0993.tar.bz2 | |
Fortran: namelist-object-name renaming.
PR fortran/105847
gcc/fortran/ChangeLog:
* trans-io.cc (transfer_namelist_element): When building the
namelist object name, if the use rename attribute is set, use
the local name specified in the use statement.
gcc/testsuite/ChangeLog:
* gfortran.dg/pr105847.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-io.cc')
| -rw-r--r-- | gcc/fortran/trans-io.cc | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/trans-io.cc b/gcc/fortran/trans-io.cc index 3cde1da..ee2cc56 100644 --- a/gcc/fortran/trans-io.cc +++ b/gcc/fortran/trans-io.cc @@ -1692,8 +1692,10 @@ transfer_namelist_element (stmtblock_t * block, const char * var_name, gcc_assert (sym || c); /* Build the namelist object name. */ - - string = gfc_build_cstring_const (var_name); + if (sym && !sym->attr.use_only && sym->attr.use_rename) + string = gfc_build_cstring_const (sym->ns->use_stmts->rename->local_name); + else + string = gfc_build_cstring_const (var_name); string = gfc_build_addr_expr (pchar_type_node, string); /* Build ts, as and data address using symbol or component. */ |