[Bug fortran/78573] [7 Regression] [OOP] ICE in resolve_component, at fortran/resolve.c:13405

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |ice-on-invalid-code
             Status|WAITING                     |ASSIGNED
                 CC|                            |janus at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org
   Target Milestone|---                         |7.0
            Summary|ICE in resolve_component,   |[7 Regression] [OOP] ICE in
                   |at fortran/resolve.c:13405  |resolve_component, at
                   |                            |fortran/resolve.c:13405

--- Comment #2 from janus at gcc dot gnu.org ---
I can confirm Gerhard's report: I don't see the ICE with any released version.


The following should be sufficient to fix it:


Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c  (revision 242960)
+++ gcc/fortran/decl.c  (working copy)
@@ -1952,7 +1952,7 @@
        {
          gfc_error ("Pointer array component of structure at %C must have a "
                     "deferred shape");
-         t = false;
+         return false;
        }
     }
   else if (c->attr.allocatable)


This will suppress the second error message and all the junk after it.