1! { dg-do compile } 2module m 3 real :: a(2), b(2) 4 real :: c(2), d(2) 5 equivalence (a, b) 6 equivalence (c, d) 7 common /xcom/ a 8end 9block data 10 use m 11end block data 12