1 subroutine broken_equiv1
4 equivalence (h(1:3), i(2:1)) ! { dg-error "has length zero" }
7 subroutine broken_equiv2
10 equivalence (j(2:3), k(1:5)) ! { dg-error "exceeds the string length" }
13 subroutine broken_equiv3
16 equivalence (l(2:3:4), m(1:2)) ! { dg-error "\[Ss\]yntax error" }