gcc/testsuite/gfortran.dg/pr69497.f90

   1 ! { dg-do compile }
   2 ! PR69497
   3 program p
   4    block
   5    do
   6    end block ! { dg-error "Expecting END DO statement" }
   7 end ! { dg-error "END DO statement expected" }
   8 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }