PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / host_assoc_call_6.f90
blobda5cb374e91ff5d49cb2d4f7d78dab63aa3c6bde
1 ! { dg-do compile }
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.
8 ! Contributed by Daniel Franke <dfranke@gcc.gnu.org>
10 MODULE m
11 CONTAINS
12 SUBROUTINE g()
13 END SUBROUTINE
14 SUBROUTINE f()
15 CALL g()
16 CONTAINS
17 SUBROUTINE g()
18 END SUBROUTINE
19 END SUBROUTINE
20 END MODULE
22 USE m
23 CALL g()
24 END