1! { dg-do compile } 2! { dg-options "-O0" } 3! PR20890 - Equivalence cannot contain overlapping unequal initializers. 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.... 7 MODULE DATA 8 INTEGER :: I=1,J=2 ! { dg-error "Overlapping unequal initializers" } 9 EQUIVALENCE(I,J) 10 END MODULE DATA 11 END 12