[Bug fortran/77763] ICE in parse_struct_map, at fortran/parse.c:3064

[kargl at gcc dot gnu.org]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #1 from kargl at gcc dot gnu.org ---
Index: parse.c
===================================================================
--- parse.c     (revision 240506)
+++ parse.c     (working copy)
@@ -3061,6 +3061,9 @@ parse_struct_map (gfc_statement block)
   accept_statement(block);
   push_state (&s, comp, gfc_new_block);

+  if (!gfc_new_block)
+    gfc_internal_error ("parse_struct_map (): invalid block");
+
   gfc_new_block->component_access = ACCESS_PUBLIC;
   compiling_type = 1;