1 program broken_equiv 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) 5 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 9 end 10