| ! { dg-do compile } | |
| ! { dg-options "-O0" } | |
| ! PR20902 - Structure with default initializer cannot be equivalence memeber. | |
| ! Contributed by Joost VandeVondele <jv244@cam.ac.uk> | |
| TYPE T1 | |
| sequence | |
| integer :: i=1 | |
| END TYPE T1 | |
| TYPE T2 | |
| sequence | |
| integer :: i ! drop original initializer to pick up error below. | |
| END TYPE T2 | |
| TYPE(T1) :: a1 | |
| TYPE(T2) :: a2 | |
| EQUIVALENCE(a1,a2) ! { dg-error "initializer cannot be an EQUIVALENCE" } | |
| write(6,*) a1,a2 | |
| END | |