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