13 lines
475 B
Fortran
13 lines
475 B
Fortran
|
! { dg-do compile }
|
||
|
! { dg-options "-O0" }
|
||
|
! PR20890 - Equivalence cannot contain overlapping unequal initializers.
|
||
|
! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
|
||
|
! Started out being in BLOCK DATA; however, blockdata variables must be in
|
||
|
! COMMON and therefore cannot have F95 style initializers....
|
||
|
MODULE DATA
|
||
|
INTEGER :: I=1,J=2 ! { dg-error "Overlapping unequal initializers" }
|
||
|
EQUIVALENCE(I,J)
|
||
|
END MODULE DATA
|
||
|
END
|
||
|
! { dg-final { cleanup-modules "data" } }
|