3 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
4 ! Check fix for PR62536 works as expected.
10 block named ! { dg-error "Unclassifiable statement" }
11 integer a ! should be SAVEd
12 a = a + x ! should increment by y every time
14 end block named ! { dg-error "Syntax error in END BLOCK statement" }