http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/150847ad37d33cdb
The following is rejected with:
Error: Symbol 'other_sub' at (1) has no IMPLICIT type
If one moves other_sub up in the module, it works.
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
--
Summary: internal procedure fails to access host-associated
module procedure
Product: gcc
Version: 4.4.0
Status: UNCONFIRMED
Keywords: rejects-valid
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: burnus at gcc dot gnu dot org
OtherBugsDependingO 32834
nThis:
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37597
