diff options
| author | H.J. Lu <hjl.tools@gmail.com> | 2012-06-26 11:54:24 -0700 |
|---|---|---|
| committer | H.J. Lu <hjl.tools@gmail.com> | 2012-06-26 11:54:24 -0700 |
| commit | 24fe62c79a89d579257790e268b0b9ea87940a89 (patch) | |
| tree | 026afc7ae12564c6a1af236b4e76286fe9c79ae9 /gcc/fortran/trans-array.c | |
| parent | 7258422b5896985803cc53aa219b5bfad7115475 (diff) | |
| parent | ad29bc7a3bd276c44379f4808b75f8449e0ee150 (diff) | |
| download | gcc-hjl/x32/gcc-4_6-branch.tar.gz | |
Merge remote-tracking branch 'origin/gcc-4_6-branch' into hjl/x32/gcc-4_6-branchhjl/x32/gcc-4_6-branch
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index a4be6e7b165..d0d0900eb1d 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2056,6 +2056,11 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, bool subscript, gfc_se se; 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; + /* TODO: This can generate bad code if there are ordering dependencies, e.g., a callee allocated function and an unknown size constructor. */ gcc_assert (ss != NULL); |