[Bug fortran/64173] [F03] ICE involving procedure pointer component

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org

--- Comment #4 from janus at gcc dot gnu.org ---
Turns out the fix is pretty much trivial:


Index: gcc/fortran/trans-array.c
===================================================================
--- gcc/fortran/trans-array.c    (Revision 218782)
+++ gcc/fortran/trans-array.c    (Arbeitskopie)
@@ -7775,7 +7775,7 @@ structure_alloc_comps (gfc_symbol * der_type, tree
       break;

     case NULLIFY_ALLOC_COMP:
-      if (c->attr.pointer)
+      if (c->attr.pointer || c->attr.proc_pointer)
         continue;
       else if (c->attr.allocatable
            && (c->attr.dimension|| c->attr.codimension))


Will commit after regtesting ...