Merge from mainline.
[official-gcc.git] / gcc / testsuite / gfortran.dg / equiv_constraint_6.f90
blob9cc4c9bbe217510b36a26962942a786e9105c1b1
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