equiv_constraint_4.f90

来自「用于进行gcc测试」· F90 代码 · 共 17 行

! { dg-do run }
! { dg-options "-O0" }
! PR20901 - check that derived/numeric equivalence works with std!=f95.
! Contributed by Joost VandeVondele <[e-mail]>
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) call abort ()
END