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