diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-11-20 19:09:34 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-11-20 19:09:34 +0000 |
| commit | 6017b8f0cfadaad21ceaf8c58f940cbc118f1a17 (patch) | |
| tree | 8f3c208186072440d44271d3cd80eb69ade5e1bf /gcc/fortran/trans-expr.c | |
| parent | ee1c213355f0f9d33568c5118f318f22057d1454 (diff) | |
| download | gcc-6017b8f0cfadaad21ceaf8c58f940cbc118f1a17.zip gcc-6017b8f0cfadaad21ceaf8c58f940cbc118f1a17.tar.gz gcc-6017b8f0cfadaad21ceaf8c58f940cbc118f1a17.tar.bz2 | |
re PR fortran/79072 (ICE with class(*) pointer function result and character value)
2017-11-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79072
* trans-expr.c (trans_class_vptr_len_assignment): Set from_len
if the temporary is unlimited polymorphic.
* trans-stmt.c (trans_associate_var): Use the fake result decl
to obtain the 'len' field from an explicit function result when
in that function scope.
2017-11-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/79072
* gfortran.dg/class_result_5.f90: New test.
From-SVN: r254966
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 92d37ec..2ca0ad6 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -8131,6 +8131,8 @@ trans_class_vptr_len_assignment (stmtblock_t *block, gfc_expr * le, { vptr_expr = NULL; se.expr = gfc_class_vptr_get (rse->expr); + if (UNLIMITED_POLY (re)) + from_len = gfc_class_len_get (rse->expr); } else if (re->expr_type != EXPR_NULL) /* Only when rhs is non-NULL use its declared type for vptr |