1! { dg-do run }
2!
3! PR fortran/37445, in which the contained 's1' would be
4! ignored and the use+host associated version used.
5!
6! Contributed by Norman S Clerman < clerman@fuse.net>
7!
8MODULE M1
9CONTAINS
10  integer function S1 ()
11    s1 = 0
12  END function
13END MODULE
14
15MODULE M2
16  USE M1
17CONTAINS
18  SUBROUTINE S2
19    if (s1 () .ne. 1) STOP 1
20  CONTAINS
21    integer function S1 ()
22      s1 = 1
23    END function
24  END SUBROUTINE
25END MODULE
26
27  USE M2
28  CALL S2
29END
30