[Bug fortran/41978] [F03] ICE in gfc_conv_expr_descriptor for array PPC assignment

[janus at gcc dot gnu dot org]

------- Comment #2 from janus at gcc dot gnu dot org  2009-11-11 21:02 -------
(In reply to comment #1)
> I'm not 100% sure, but I think this also applies to PPCs.

If this is correct, then the fix for this PR is as simple as

Index: gcc/fortran/resolve.c
===================================================================
--- gcc/fortran/resolve.c       (revision 153965)
+++ gcc/fortran/resolve.c       (working copy)
@@ -4272,7 +4272,8 @@ resolve_ref (gfc_expr *expr)
        case REF_COMPONENT:
          if (current_part_dimension || seen_part_dimension)
            {
-             if (ref->u.c.component->attr.pointer)
+             if (ref->u.c.component->attr.pointer
+                 || ref->u.c.component->attr.proc_pointer)
                {
                  gfc_error ("Component to the right of a part reference "
                             "with nonzero rank must not have the POINTER "

Daniel, what do you think?


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2009-11-11 21:02:50
               date|                            |
            Summary|ICE in                      |[F03] ICE in
                   |gfc_conv_expr_descriptor for|gfc_conv_expr_descriptor for
                   |array PPC assignment        |array PPC assignment


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41978