gcc/testsuite/gfortran.dg/end_block_label_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/50071
   4 ! A label in an END BLOCK statement was ignored; as a result, a GOTO
   5 ! to such a label was rejected.
   6 !
   7 ! Contributed by Tobias Burnus <burnus@net-b.de>
   8
   9    block
  10       goto 1
  11       print *, 'Hello'
  12 1  end block
  13 end
  14