------- Comment #4 from burnus at gcc dot gnu dot org  2010-01-25 09:37 -------
(In reply to comment #3)
> This appears to fix this: regression tested on x86-64

I think the following patch is better. My intrinsic check was bogus.

Index: array.c
===================================================================
--- array.c     (revision 156196)
+++ array.c     (working copy)
@@ -2054,7 +2054,7 @@ gfc_array_dimen_size (gfc_expr *array, i
        }

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


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |burnus at gcc dot gnu dot
                   |dot org                     |org
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2010-01-25 01:18:04         |2010-01-25 09:37:46
               date|                            |


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

Reply via email to