diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-24 17:06:57 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-09-24 17:06:57 +0000 |
| commit | e2293887510a25f2e2f04206cbe1b3bfdc93e598 (patch) | |
| tree | 2eee2290b7705d66291606d5ace45c22add16a84 /gcc/fortran/trans-expr.c | |
| parent | da52c7b71feb7f3bd3693c97820586b648d735fc (diff) | |
| download | ppe42-gcc-e2293887510a25f2e2f04206cbe1b3bfdc93e598.tar.gz ppe42-gcc-e2293887510a25f2e2f04206cbe1b3bfdc93e598.zip | |
fortran/
PR fortran/17615
* trans-expr.c (gfc_trans_arrayfunc_assign): Look at resolved
function to determine return type.
testsuite/
PR fortran/17615
* gfortran.dg/pr17615.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88061 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 29550b715e6..fc5b41bf880 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -2007,8 +2007,8 @@ gfc_trans_arrayfunc_assign (gfc_expr * expr1, gfc_expr * expr2) /* 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); |
