1! { dg-do run } 2! { dg-options "-O0" } 3! PR20901 - check that derived/numeric equivalence works with std!=f95. 4! Contributed by Joost VandeVondele <jv244@cam.ac.uk> 5TYPE data_type 6 SEQUENCE 7 INTEGER :: I 8END TYPE data_type 9INTEGER :: J = 7 10TYPE(data_type) :: dd 11EQUIVALENCE(dd,J) 12if (dd%i.ne.7) call abort () 13END 14 15 16 17