2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr78297.f90
blob9c3d1aaab5e7d11889af3b5c0d9151b3c02957dd
1 ! { dg-do compile }
2 module 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
8 end
9 block data
10 use m
11 end block data