! { dg-do compile } ! ! PR fortran/38594, in which the symtree for the first ! 'g' was being attached to the second. This is necessary ! for generic interfaces(eg. hosts_call_3.f90) but makes ! a mess otherwise. ! ! Contributed by Daniel Franke ! MODULE m CONTAINS SUBROUTINE g() END SUBROUTINE SUBROUTINE f() CALL g() CONTAINS SUBROUTINE g() END SUBROUTINE END SUBROUTINE END MODULE USE m CALL g() END ! { dg-final { cleanup-modules "m" } }