[Bug fortran/39931] ICE on invalid Fortran 95 code (bad pointer assignment), gimplify_expr at gimplify.c:6315

[janus at gcc dot gnu dot org]

------- Comment #4 from janus at gcc dot gnu dot org  2009-04-27 19:09 -------
Patch:

Index: gcc/fortran/expr.c
===================================================================
--- gcc/fortran/expr.c  (Revision 146847)
+++ gcc/fortran/expr.c  (Arbeitskopie)
@@ -3070,8 +3070,8 @@
       if (pointer)
        check_intent_in = 0;

-      if (ref->type == REF_COMPONENT && ref->u.c.component->attr.pointer)
-       pointer = 1;
+      if (ref->type == REF_COMPONENT)
+       pointer = ref->u.c.component->attr.pointer;

       if (ref->type == REF_ARRAY && ref->next == NULL)
        {


-- 

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|NEW                         |ASSIGNED
   Last reconfirmed|2009-04-27 17:54:23         |2009-04-27 19:09:03
               date|                            |


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