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) call abort
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