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/fortran/parse.c | |
| 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/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 3 |
1 files changed, 2 insertions, 1 deletions
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); } |