31 lines
507 B
Fortran
31 lines
507 B
Fortran
! { dg-do run }
|
|
!
|
|
! PR fortran/37445, in which the contained 's1' would be
|
|
! ignored and the use+host associated version used.
|
|
!
|
|
! Contributed by Norman S Clerman < clerman@fuse.net>
|
|
!
|
|
MODULE M1
|
|
CONTAINS
|
|
integer function S1 ()
|
|
s1 = 0
|
|
END function
|
|
END MODULE
|
|
|
|
MODULE M2
|
|
USE M1
|
|
CONTAINS
|
|
SUBROUTINE S2
|
|
if (s1 () .ne. 1) call abort
|
|
CONTAINS
|
|
integer function S1 ()
|
|
s1 = 1
|
|
END function
|
|
END SUBROUTINE
|
|
END MODULE
|
|
|
|
USE M2
|
|
CALL S2
|
|
END
|
|
! { dg-final { cleanup-modules "M1 M2" } }
|