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