From f391a855826aaa21043f0f492bb2eb4dde130cf6 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 22 May 2012 12:10:47 +0200 Subject: re PR fortran/53389 (-frealloc-lhs: memory leak when assigning array function result to allocatable array, where one of its supplied arguments is itself an array function result) 2012-05-22 Tobias Burnus PR fortran/53389 * trans-array.c (gfc_add_loop_ss_code): Don't evaluate * expression, if ss->is_alloc_lhs is set. 2012-05-22 Tobias Burnus PR fortran/53389 * gfortran.dg/realloc_on_assign_15.f90: New. From-SVN: r187769 --- gcc/fortran/ChangeLog | 8 +++++++- gcc/fortran/trans-array.c | 5 +++++ 2 files changed, 12 insertions(+), 1 deletion(-) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0880b31..38bff78 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,8 +1,14 @@ +2012-05-22 Tobias Burnus + + PR fortran/53389 + * trans-array.c (gfc_add_loop_ss_code): Don't evaluate expression, if + ss->is_alloc_lhs is set. + 2012-05-22 Dodji Seketeli PR c++/53322 * f95-lang.c (gfc_init_builtin_functions): Remove the unused - typedef builtin_type. + typedef builtin_type. 2012-05-14 Janne Blomqvist diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index b24d1c3..02bb38d 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2401,6 +2401,11 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, bool subscript, bool skip_nested = false; int n; + /* Don't evaluate the arguments for realloc_lhs_loop_for_fcn_call; otherwise, + arguments could get evaluated multiple times. */ + if (ss->is_alloc_lhs) + return; + outer_loop = outermost_loop (loop); /* TODO: This can generate bad code if there are ordering dependencies, -- cgit v1.1