gcc/testsuite/gfortran.dg/do_4.f

   1 ! { dg-do compile }
   2 ! Verify that the loop not terminated on an action-stmt is correctly rejected
   3        do10i=1,20
   4        if(i.eq.5)then
   5           goto 10
   6  10    endif           ! { dg-error "is within another block" }
   7        end
   8 ! { dg-excess-errors "" }
   9