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