mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-21 14:30:59 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/37597 (internal procedure fails to access host-associated module procedure)

Browse Source 
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
This commit is contained in:
Paul Thomas 2008-11-04 21:17:53 +00:00
parent ead51d3654
commit 50d6ceda91
4 changed files with 34 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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

3
gcc/fortran/parse.c
View File

@ -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);
}

5
gcc/testsuite/ChangeLog
View File

@ -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>

21
gcc/testsuite/gfortran.dg/host_assoc_call_5.f90 Normal file
View File

@ -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" } }