gcc/testsuite/gfortran.dg/equiv_constraint_4.f90

   1 ! { dg-do run }
   2 ! { dg-options "-O0" }
   3 ! PR20901 - check that derived/numeric equivalence works with std!=f95.
   4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   5 TYPE data_type
   6  SEQUENCE
   7  INTEGER :: I
   8 END TYPE data_type
   9 INTEGER :: J = 7
  10 TYPE(data_type) :: dd
  11 EQUIVALENCE(dd,J)
  12 if (dd%i.ne.7) call abort ()
  13 END
  14
  15
  16