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