1! { dg-do compile } 2! Tests the fix for PR37597, where the reference to other_sub would generate 3! Error: Symbol 'other_sub' at (1) has no IMPLICIT type. 4! 5! Contributed by Tobias Burnus <burnus@gcc.gnu.org> 6! from a report on clf by Rich Townsend <rhdt@barvoidtol.udel.edu> 7! 8module foo 9 implicit none 10contains 11 subroutine main_sub () 12 call internal_sub() 13 contains 14 subroutine internal_sub() 15 call QAG(other_sub) 16 end subroutine internal_sub 17 end subroutine main_sub 18 subroutine other_sub () 19 end subroutine other_sub 20end module foo 21