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