diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-04-06 14:16:01 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2019-04-06 14:16:01 +0000 |
| commit | 2955784caf887cbc6949b766bc38d6f9e0f3fc48 (patch) | |
| tree | c5320734518db5beaf745c9190b78babc98826c4 /gcc/fortran/resolve.c | |
| parent | f3c9ac23feef494e34fae3cc8a96d71d907a8988 (diff) | |
| download | gcc-2955784caf887cbc6949b766bc38d6f9e0f3fc48.zip gcc-2955784caf887cbc6949b766bc38d6f9e0f3fc48.tar.gz gcc-2955784caf887cbc6949b766bc38d6f9e0f3fc48.tar.bz2 | |
re PR fortran/89981 (gfortran -pedantic rejects code in 8.3.1 that is accepted with 8.3.0)
2019-04-06 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/89981
* resolve.c (resolve_global_procedure): If the global symbol is an
ENTRY, also look up its name among the entries.
2019-04-06 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/89981
* gfortran.dg/entry_22.f90: New test.
From-SVN: r270182
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 3513a44..cb41da0 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2546,7 +2546,7 @@ resolve_global_procedure (gfc_symbol *sym, locus *where, if (gsym->binding_label && gsym->sym_name != def_sym->name) gfc_find_symbol (gsym->sym_name, gsym->ns, 0, &def_sym); - if (def_sym->attr.entry_master) + if (def_sym->attr.entry_master || def_sym->attr.entry) { gfc_entry_list *entry; for (entry = gsym->ns->entries; entry; entry = entry->next) |