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             ! { dg-error "END DO statement expected" }
   8                        ! { dg-warning "Fortran 2018 deleted feature: DO termination statement which is not END DO or CONTINUE" "" { target "*-*-*" } 6 }
   9 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }
  10