1! { dg-do run } 2! PR fortran/66377 3! 4module constant 5 integer x1, x2, x3 6 integer x(3) 7 equivalence (x(1),x1), (x2,x(2)), (x3,x(3)) 8end module 9 10program test 11 use constant 12 implicit none 13 x = (/1, 2, 3/) 14 call another() 15end program 16 17subroutine another() 18 use constant, only : x2 19 implicit none 20 if (x2 /= 2) call abort 21end subroutine 22! { dg-final { cleanup-modules "constant" } } 23