2 real d (2) ! { dg-error "Inconsistent equivalence rules" "d" }
3 real e
! { dg-error "Inconsistent equivalence rules" "e" }
4 equivalence (d (1), e
), (d (2), e
)
6 real f (2) ! { dg-error "Inconsistent equivalence rules" "f" }
7 double precision g (2) ! { dg-error "Inconsistent equivalence rules" "g" }
8 equivalence (f (1), g (1)), (f (2), g (2)) ! Not standard conforming
