------- 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
