re PR fortran/54384 (gfortran memory leaks)

2012-08-27  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54384
        * trans-expr.c (gfc_trans_arrayfunc_assign): Free se.ss
        and loop.

From-SVN: r190713
This commit is contained in:
Tobias Burnus 2012-08-27 16:42:50 +02:00 committed by Tobias Burnus
parent 7b93bdde91
commit c0782a4002
2 changed files with 11 additions and 0 deletions

View File

@ -1,3 +1,9 @@
2012-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/54384
* trans-expr.c (gfc_trans_arrayfunc_assign): Free se.ss
and loop.
2012-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/41093

View File

@ -6781,6 +6781,11 @@ gfc_trans_arrayfunc_assign (gfc_expr * expr1, gfc_expr * expr2)
gfc_conv_function_expr (&se, expr2);
gfc_add_block_to_block (&se.pre, &se.post);
if (ss)
gfc_cleanup_loop (&loop);
else
gfc_free_ss_chain (se.ss);
return gfc_finish_block (&se.pre);
}