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