gcc/testsuite/gfortran.dg/block_15.f08

   1 ! { dg-do compile }
   2 !
   3 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   4 ! Check fix for PR62536 works as expected.
   5
   6 function f2 (x)
   7 implicit 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
  17 endfunction
  18
  19 end
  20