[Bug fortran/33733] ICEs in simplify_transfer

[pault at gcc dot gnu dot org]

------- Comment #1 from pault at gcc dot gnu dot org  2007-10-11 10:53 -------
This fixes it.

Index: gcc/fortran/simplify.c
===================================================================
*** gcc/fortran/simplify.c      (révision 129121)
--- gcc/fortran/simplify.c      (copie de travail)
*************** gfc_simplify_transfer (gfc_expr *source,
*** 4011,4016 ****
--- 4011,4020 ----
        || !gfc_is_constant_expr (size))
      return NULL;

+   if (source->expr_type != EXPR_ARRAY
+       && source->expr_type != EXPR_CONSTANT)
+     return NULL;
+
    /* Calculate the size of the source.  */
    if (source->expr_type == EXPR_ARRAY
        && gfc_array_size (source, &tmp) == FAILURE)

Paul


-- 

pault at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |pault at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2007-10-11 10:53:24
               date|                            |


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