! { dg-do run } | |
! { dg-options "-O0" } | |
! PR20901 - check that derived/numeric equivalence works with std!=f95. | |
! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
TYPE data_type | |
SEQUENCE | |
INTEGER :: I | |
END TYPE data_type | |
INTEGER :: J = 7 | |
TYPE(data_type) :: dd | |
EQUIVALENCE(dd,J) | |
if (dd%i.ne.7) STOP 1 | |
END | |