1! { dg-do compile }
2module test_equivalence
3  real, private :: array1(100)
4  real, private :: array2(100)
5  equivalence(array1,array2)
6end module test_equivalence
7
8module mymodule
9  use test_equivalence
10  real, dimension(:), allocatable :: array1
11end module mymodule
12
13program test
14  use mymodule
15end program test
16