[Bug fortran/41113] spurious _gfortran_internal_pack

[dominiq at lps dot ens dot fr]

------- Comment #21 from dominiq at lps dot ens dot fr  2010-02-14 20:16 -------
The ICEs are fixed by the last change in
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36932#c8 :

@@ -5548,7 +5550,8 @@ gfc_conv_array_parameter (gfc_se * se, g
     }

   if (contiguous && g77 && !this_array_result
-       && !expr->symtree->n.sym->attr.dummy)
+        && expr->symtree->n.sym->as
+       && expr->symtree->n.sym->as->type != AS_ASSUMED_SHAPE)
     {
       gfc_conv_expr_descriptor (se, expr, ss);
       if (expr->ts.type == BT_CHARACTER)


-- 


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