1! { dg-do compile }
2!
3! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
4! Check fix for PR62536 works as expected.
5
6function f2 (x)
7implicit none
8  integer f2, x
9  block
10   block named ! { dg-error "Unclassifiable statement" }
11    integer a ! should be SAVEd
12    a = a + x ! should increment by y every time
13    f2 = a
14   end block named ! { dg-error "Syntax error in END BLOCK statement" }
15  end block
16  return
17endfunction
18
19end
20
21