gcc/testsuite/gfortran.dg/equiv_constraint_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O0" }
   3 ! PR20890 - Equivalence cannot contain overlapping unequal initializers.
   4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   5 ! Started out being in BLOCK DATA; however, blockdata variables must be in
   6 ! COMMON and therefore cannot have F95 style initializers....
   7  MODULE DATA
   8   INTEGER :: I=1,J=2  ! { dg-error "Overlapping unequal initializers" }
   9   EQUIVALENCE(I,J)
  10  END MODULE DATA
  11  END
  12 ! { dg-final { cleanup-modules "data" } }