[Bug fortran/42858] [4.5 Regression] ICE in gfc_array_dimen_size at ../../trunk/gcc/fortran/array.c:2063

[jvdelisle at gcc dot gnu dot org]

------- Comment #3 from jvdelisle at gcc dot gnu dot org  2010-01-25 01:18 
-------
This appears to fix this: regression tested on x86-64

Index: array.c
===================================================================
--- array.c     (revision 156201)
+++ array.c     (working copy)
@@ -2053,10 +2053,11 @@
          return SUCCESS;
        }

-      if (array->symtree->n.sym->attr.generic
+      if (dimen && array->symtree->n.sym->attr.generic
          && !array->symtree->n.sym->attr.intrinsic)
        {
-         if (spec_dimen_size (array->value.function.esym->as, dimen, result)
+         if (array->value.function.esym
+             && spec_dimen_size (array->value.function.esym->as, dimen,
result)
              == FAILURE)
            return FAILURE;
        }

Tobias, please feel free to run with this or another fix as suitable.


-- 

jvdelisle at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-01-25 01:18:04
               date|                            |


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