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