gcc/testsuite/gfortran.dg/equiv_constraint_6.f90

   1 ! { dg-do compile }
   2 ! PR16404 test 3 and PR20835 - Target cannot be equivalence object.
   3 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   4   REAL :: A
   5   REAL, TARGET :: B
   6   EQUIVALENCE(A,B) ! { dg-error "conflicts with TARGET attribute" }
   7 END
   8