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