[Patch, fortran] PR40646 - ICE assigning array return value from type-bound procedure
Tobias Burnus
burnus@net-b.de
Sat Jul 4 12:58:00 GMT 2009
Paul Richard Thomas wrote:
> The attached is verging on obvious.
> Bootstrapped and regtested on FC9/x86_64 - OK for trunk?
>
The patch looks OK and is verging on obvious. However, I am wondering
whether one should not (also) already fill esym in resolve.c (untested):
--- resolve.c (revision 149208)
+++ resolve.c (working copy)
@@ -4817,5 +4817,5 @@ resolve_compcall (gfc_expr* e)
e->value.function.name = e->value.compcall.name;
e->value.function.isym = NULL;
- e->value.function.esym = NULL;
+ e->value.function.esym = e->value.compcall.tbp->u.specific->n.sym;
e->symtree = target;
e->ts = target->n.sym->ts;
Tobias
> 2009-07-04 Paul Thomas <pault@gcc.gnu.org>
>
> PR fortran/40646
> * trans-expr.c (gfc_trans_arrayfunc_assign): Make sure that the
> esym field of the expression is filled and use is_proc_ptr_comp
> in the condition.
>
> 2009-07-04 Paul Thomas <pault@gcc.gnu.org>
>
> PR fortran/40646
> * gfortran.dg/func_assign_3.f90 : New test
More information about the Gcc-patches
mailing list