diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2008-11-04 21:17:53 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2008-11-04 21:17:53 +0000 |
| commit | 50d6ceda910772d502bf401d2e3b561b764cc85b (patch) | |
| tree | fddea279e34f33f8a49766f025fea1f340e20f9e /gcc | |
| parent | ead51d365447a3441fa087e0f9120b8199d19da2 (diff) | |
| download | gcc-50d6ceda910772d502bf401d2e3b561b764cc85b.zip gcc-50d6ceda910772d502bf401d2e3b561b764cc85b.tar.gz gcc-50d6ceda910772d502bf401d2e3b561b764cc85b.tar.bz2 | |
re PR fortran/37597 (internal procedure fails to access host-associated module procedure)
2008-11-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37597
* parse.c (gfc_fixup_sibling_symbols ): Fixup contained, even
when symbol not found.
2008-11-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/37597
* gfortran.dg/host_assoc_call_5.f90: New test.
From-SVN: r141588
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/parse.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 | 21 |
4 files changed, 34 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ec83b16..c5abefa 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2008-11-04 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/37597 + * parse.c (gfc_fixup_sibling_symbols ): Fixup contained, even + when symbol not found. + 2008-11-03 Tobias Burnus <burnus@net-b.de> PR fortran/37821 diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index a96f77d..e52c06f 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -3313,7 +3313,7 @@ gfc_fixup_sibling_symbols (gfc_symbol *sym, gfc_namespace *siblings) gfc_find_sym_tree (sym->name, ns, 0, &st); if (!st || (st->n.sym->attr.dummy && ns == st->n.sym->ns)) - continue; + goto fixup_contained; old_sym = st->n.sym; if (old_sym->ns == ns @@ -3347,6 +3347,7 @@ gfc_fixup_sibling_symbols (gfc_symbol *sym, gfc_namespace *siblings) gfc_free_symbol (old_sym); } +fixup_contained: /* Do the same for any contained procedures. */ gfc_fixup_sibling_symbols (sym, ns->contained); } diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b2dfc59..41c76e4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-11-04 Paul Thomas <pault@gcc.gnu.org> + + PR fortran/37597 + * gfortran.dg/host_assoc_call_5.f90: New test. + 2008-11-04 Jakub Jelinek <jakub@redhat.com> Andrew Pinski <andrew_pinski@playstation.sony.com> diff --git a/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 b/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 new file mode 100644 index 0000000..6ce57ce --- /dev/null +++ b/gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 @@ -0,0 +1,21 @@ +! { dg-do compile } +! Tests the fix for PR37597, where the reference to other_sub would generate +! Error: Symbol 'other_sub' at (1) has no IMPLICIT type. +! +! Contributed by Tobias Burnus <burnus@gcc.gnu.org> +! from a report on clf by Rich Townsend <rhdt@barvoidtol.udel.edu> +! +module foo + implicit none +contains + subroutine main_sub () + call internal_sub() + contains + subroutine internal_sub() + call QAG(other_sub) + end subroutine internal_sub + end subroutine main_sub + subroutine other_sub () + end subroutine other_sub +end module foo +! { dg-final { cleanup-modules "foo" } } |