------- Comment #7 from janus at gcc dot gnu dot org 2009-11-19 21:59 ------- (In reply to comment #6) > Index: gcc/fortran/trans-expr.c > =================================================================== > --- gcc/fortran/trans-expr.c (revision 154327) > +++ gcc/fortran/trans-expr.c (working copy) > @@ -2979,7 +2979,10 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * > f = (fsym != NULL) > && !(fsym->attr.pointer || fsym->attr.allocatable) > && fsym->as->type != AS_ASSUMED_SHAPE; > - f = f || !sym->attr.always_explicit; > + if (comp) > + f = f || !comp->attr.always_explicit; > + else > + f = f || !sym->attr.always_explicit; > > if (e->expr_type == EXPR_VARIABLE > && is_subref_array (e))
This patch makes the test case work and regtests without regressions. Paul, should I commit it or do you prefer your version? -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42104
