5 ! Check for F2003's 5.5.2.5 Restrictions on common and equivalence
6 ! Test case contributed by Joost VandeVondele.
20 type(data_type) :: dd, ff
21 type(data_type2) :: gg
23 EQUIVALENCE(dd,J) ! { dg-error "with default initialization cannot be in EQUIVALENCE with a variable in COMMON" }