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