! { dg-do run } ! { dg-options "-O0" } ! PR20901 - check that derived/numeric equivalence works with std!=f95. ! Contributed by Joost VandeVondele 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