diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2017-12-29 14:27:59 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2017-12-29 14:27:59 +0000 |
| commit | 459e77b859a96bc4dd3cfd53895c8dccfa0de679 (patch) | |
| tree | add05e019b36c6e52da0f6a470d7f6c142c7de2b /gcc | |
| parent | ec3131c5c3919a759631b28a874293a7a9681629 (diff) | |
| download | gcc-459e77b859a96bc4dd3cfd53895c8dccfa0de679.zip gcc-459e77b859a96bc4dd3cfd53895c8dccfa0de679.tar.gz gcc-459e77b859a96bc4dd3cfd53895c8dccfa0de679.tar.bz2 | |
re PR fortran/83567 (Parametrized derived types: Segmentation fault when assigning a function return value)
2017-12-28 Paul Thomas <pault@gcc.gnu.org>
PR fortran/83567
* trans-expr.c (gfc_trans_assignment_1): Free parameterized
components of the lhs if dealloc is set.
*trans-decl.c (gfc_trans_deferred_vars): Do not free the
parameterized components of function results on leaving scope.
2017-12-28 Paul Thomas <pault@gcc.gnu.org>
PR fortran/83567
* gfortran.dg/pdt_26.f90 : New test.
From-SVN: r256033
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 30151dd..756fd6a 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -10078,7 +10078,8 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, } /* Deallocate the lhs parameterized components if required. */ - if (dealloc && expr2->expr_type == EXPR_FUNCTION) + if (dealloc && expr2->expr_type == EXPR_FUNCTION + && !expr1->symtree->n.sym->attr.associate_var) { if (expr1->ts.type == BT_DERIVED && expr1->ts.u.derived |