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 | |
| 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')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/entry_22.f90 | 12 |
4 files changed, 24 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 7b849b0..ca17280 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +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-04 Harald Anlauf <anlauf@gmx.de> PR fortran/89004 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) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b854b57..2c8de7a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2019-04-06 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/89981 + * gfortran.dg/entry_22.f90: New test. + 2019-04-05 Marek Polacek <polacek@redhat.com> PR c++/87145 - bogus error converting class type in template arg list. diff --git a/gcc/testsuite/gfortran.dg/entry_22.f90 b/gcc/testsuite/gfortran.dg/entry_22.f90 new file mode 100644 index 0000000..7753429 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/entry_22.f90 @@ -0,0 +1,12 @@ +! { dg-do compile } +! { dg-additional-options "-pedantic" } +! PR fortran/89981 - this used to give a wrong warning (error with +! -pedantic) +program main + call bar(i) + call baz(i) ! { dg-error "Type mismatch in argument" } +end program main +subroutine foo(r) + entry bar(i) + entry baz(r) +end subroutine foo |