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