1! { dg-do compile } 2! 3! PR fortran/38594, in which the symtree for the first 4! 'g' was being attached to the second. This is necessary 5! for generic interfaces(eg. hosts_call_3.f90) but makes 6! a mess otherwise. 7! 8! Contributed by Daniel Franke <dfranke@gcc.gnu.org> 9! 10MODULE m 11CONTAINS 12 SUBROUTINE g() 13 END SUBROUTINE 14 SUBROUTINE f() 15 CALL g() 16 CONTAINS 17 SUBROUTINE g() 18 END SUBROUTINE 19 END SUBROUTINE 20END MODULE 21 22 USE m 23 CALL g() 24END 25