gcc/testsuite/gfortran.dg/common_3.f90

   1 ! { dg-do compile }
   2 ! Check that equivalences match common block layout.
   3 program common_3
   4   common /block/ a, b, c, d ! { dg-error "not match ordering" "" }
   5   integer a, b, c, d, n
   6   dimension n(4)
   7   equivalence (a, n(1))
   8   equivalence (c, n(4))
   9 end program