------- Comment #4 from mikael at gcc dot gnu dot org  2010-09-22 15:13 -------
I will test this:

Index: trans-array.c
===================================================================
--- trans-array.c       (révision 164494)
+++ trans-array.c       (copie de travail)
@@ -5290,13 +5290,17 @@ gfc_conv_expr_descriptor (gfc_se * se, gfc_expr *
          return;
        }

-      if (ss->expr != expr)
+      if (ss->expr != expr || ss->type != GFC_SS_FUNCTION)
        {
-         /* Elemental function.  */
-         gcc_assert ((expr->value.function.esym != NULL
-                      && expr->value.function.esym->attr.elemental)
-                     || (expr->value.function.isym != NULL
-                         && expr->value.function.isym->elemental));
+         if (ss->expr != expr)
+           /* Elemental function.  */
+           gcc_assert ((expr->value.function.esym != NULL
+                        && expr->value.function.esym->attr.elemental)
+                       || (expr->value.function.isym != NULL
+                           && expr->value.function.isym->elemental));
+         else
+           gcc_assert (ss->type == GFC_SS_INTRINSIC);
+
          need_tmp = 1;
          if (expr->ts.type == BT_CHARACTER
                && expr->ts.u.cl->length->expr_type != EXPR_CONSTANT)


-- 


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