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