| ! { 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" } } |