17 lines
316 B
Fortran
17 lines
316 B
Fortran
! { dg-do run }
|
|
! { dg-options "-O0" }
|
|
! PR20901 - check that derived/numeric equivalence works with std!=f95.
|
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
|
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
|
|
|
|
|
|
|