| ! { dg-do compile } | |
| ! | |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> | |
| ! Check fix for PR62536 works as expected. | |
| function f2 (x) | |
| implicit none | |
| integer f2, x | |
| block | |
| block named ! { dg-error "Unclassifiable statement" } | |
| integer a ! should be SAVEd | |
| a = a + x ! should increment by y every time | |
| f2 = a | |
| end block named ! { dg-error "Syntax error in END BLOCK statement" } | |
| end block | |
| return | |
| endfunction | |
| end | |