gcc/testsuite/gfortran.dg/blocks_nested_incomplete_1.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/66175
   4 ! Nested incomplete blocks cause ICE.
   5 program main
   6   block
   7     block
   8 end program ! { dg-error "Expecting END BLOCK statement" }
   9 ! { dg-prune-output "Unexpected end of file" }