From 5dba0fb8453e71c6f03f7a00b41016fc327f89f9 Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Thu, 21 Dec 2006 13:59:57 +0000 Subject: re PR fortran/30202 ([4.1 only] ICE in trans-array.c) 2006-12-21 Paul Thomas PR fortran/30202 * trans-array.c (gfc_conv_function_call): Use parmse.expr for the nullifying of intent(out) arguments rather than the backend declaration. 2006-12-21 Paul Thomas PR fortran/30202 * gfortran.dg/alloc_comp_basics_3.f90: New test. From-SVN: r120109 --- gcc/fortran/ChangeLog | 7 +++++++ gcc/fortran/trans-expr.c | 4 +--- 2 files changed, 8 insertions(+), 3 deletions(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index dbc724a..c0dd40a 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2006-12-21 Paul Thomas + + PR fortran/30202 + * trans-array.c (gfc_conv_function_call): Use parmse.expr for + the nullifying of intent(out) arguments rather than the backend + declaration. + 2006-12-20 Tobias Schlüter PR fortran/25392 diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index bd79834..6d46cd4 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2068,9 +2068,7 @@ gfc_conv_function_call (gfc_se * se, gfc_symbol * sym, if (fsym && fsym->attr.allocatable && fsym->attr.intent == INTENT_OUT) { - tmp = e->symtree->n.sym->backend_decl; - if (e->symtree->n.sym->attr.dummy) - tmp = build_fold_indirect_ref (tmp); + tmp = build_fold_indirect_ref (parmse.expr); tmp = gfc_trans_dealloc_allocated (tmp); gfc_add_expr_to_block (&se->pre, tmp); } -- cgit v1.1