blob: a788be1926aaccf1a36bccba37092797d093141c [file] [log] [blame]
! { 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 <>
! from a report on clf by Rich Townsend <>
module foo
implicit none
subroutine main_sub ()
call internal_sub()
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