3 ! PR20890 - Equivalence cannot contain more than one initialized variables.
4 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
5 ! Started out being in BLOCK DATA; however, blockdata variables must be in
6 ! COMMON and therefore cannot have F95 style initializers....
9 EQUIVALENCE(I
,J
) ! { dg-error "cannot both be in the EQUIVALENCE" }