re PR fortran/69497 (ICE in gfc_free_namespace, at fortran/symbol.c:3701)

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr69497.f90

! { dg-do compile }
! PR89497
program p
   block
   do
   end block ! { dg-error "Expecting END DO statement" }
end ! { dg-error "END DO statement expected" }
! { dg-excess-errors "Unexpected end of file" }