2 ! Verify that the loop not terminated on an action
-stmt is correctly rejected
6 10 endif ! { dg
-error
"is within another block" }
7 end ! { dg
-error
"END DO statement expected" }
8 ! { dg
-warning
"Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE" "" { target
"*-*-*" } 6 }
9 ! { dg
-error
"Unexpected end of file" "" { target
"*-*-*" } 0 }