[Bug fortran/69964] ICE on misspelled end block data, in gfc_ascii_statement

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69964

--- Comment #2 from kargl at gcc dot gnu.org ---
Index: parse.c
===================================================================
--- parse.c     (revision 237945)
+++ parse.c     (working copy)
@@ -5626,8 +5628,11 @@ parse_block_data (void)

   while (st != ST_END_BLOCK_DATA)
     {
-      gfc_error ("Unexpected %s statement in BLOCK DATA at %C",
-                gfc_ascii_statement (st));
+      if (st != ST_NONE)
+       gfc_error ("Unexpected %s statement in BLOCK DATA at %C",
+                  gfc_ascii_statement (st));
+      else
+       break;
       reject_statement ();
       st = next_statement ();
     }