3 ! Based on testcase by Tobias Schlüter
5 integer iw1(90), doiw1(90)
6 do iw1
=1,2 ! { dg-error "cannot be an array" }
7 end do ! { dg-error "Expecting END PROGRAM statement" }
8 do iw1(1)=1 ! { dg-error "Unclassifiable statement" }
9 do iw1
=1 ! { dg-error "cannot be an array" }
10 end do ! { dg-error "Expecting END PROGRAM statement" }