This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [gfortran] Fix PR17615: Wrong symbol used when genrating code
- From: Paul Brook <paul at codesourcery dot com>
- To: fortran at gcc dot gnu dot org
- Cc: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Fri, 24 Sep 2004 17:53:34 +0100
- Subject: Re: [gfortran] Fix PR17615: Wrong symbol used when genrating code
- Organization: CodeSourcery
- References: <41544CC7.9070107@physik.uni-muenchen.de> <41544F93.3080807@physik.uni-muenchen.de>
On Friday 24 September 2004 17:47, Tobias Schlüter wrote:
> Index: trans-expr.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/trans-expr.c,v
> retrieving revision 1.28
> diff -u -p -r1.28 trans-expr.c
> --- trans-expr.c 17 Sep 2004 21:54:57 -0000 1.28
> +++ trans-expr.c 24 Sep 2004 16:45:14 -0000
> @@ -2007,8 +2007,8 @@ gfc_trans_arrayfunc_assign (gfc_expr * e
> /* The frontend doesn't seem to bother filling in expr->symtree for
> intrinsic functions. */
> gcc_assert (expr2->value.function.isym
> - || (gfc_return_by_reference (expr2->symtree->n.sym)
> - && expr2->symtree->n.sym->result->attr.dimension));
> + || (gfc_return_by_reference (expr2->value.function.esym)
> + && expr2->value.function.esym->result->attr.dimension));
>
> ss = gfc_walk_expr (expr1);
> gcc_assert (ss != gfc_ss_terminator);
Ok.
Paul