diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-22 17:26:12 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-22 17:26:12 +0000 |
| commit | 73f5d219bb59d2930010220d144bbff22031fb90 (patch) | |
| tree | c766d9d9c6ffe97fafab88a943e8ab1d6987d976 /gcc/fortran/module.c | |
| parent | a00165b4660b76c8a54ff6be3e053b1cea2a6a37 (diff) | |
| download | gcc-73f5d219bb59d2930010220d144bbff22031fb90.zip gcc-73f5d219bb59d2930010220d144bbff22031fb90.tar.gz gcc-73f5d219bb59d2930010220d144bbff22031fb90.tar.bz2 | |
re PR fortran/88169 (Rejects USE rename of namelist group)
2018-12-21 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88169
* module.c (mio_namelist): Remove an error condition/message that
is contrary to the Fortran standard.
2018-12-21 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/88169
* gfortran.dg/pr88169_1.f90: new test.
* gfortran.dg/pr88169_2.f90: Ditto.
* gfortran.dg/pr88169_3.f90: Ditto.
From-SVN: r267351
Diffstat (limited to 'gcc/fortran/module.c')
| -rw-r--r-- | gcc/fortran/module.c | 12 |
1 files changed, 0 insertions, 12 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index d42ab47..163b3ce 100644 --- a/gcc/fortran/module.c +++ b/gcc/fortran/module.c @@ -3711,7 +3711,6 @@ static void mio_namelist (gfc_symbol *sym) { gfc_namelist *n, *m; - const char *check_name; mio_lparen (); @@ -3722,17 +3721,6 @@ mio_namelist (gfc_symbol *sym) } else { - /* This departure from the standard is flagged as an error. - It does, in fact, work correctly. TODO: Allow it - conditionally? */ - if (sym->attr.flavor == FL_NAMELIST) - { - check_name = find_use_name (sym->name, false); - if (check_name && strcmp (check_name, sym->name) != 0) - gfc_error ("Namelist %s cannot be renamed by USE " - "association to %s", sym->name, check_name); - } - m = NULL; while (peek_atom () != ATOM_RPAREN) { |