diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-14 23:59:00 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-14 23:59:00 +0000 |
| commit | a90552d5640745659ced7aca0d285a61da3b11ff (patch) | |
| tree | 2c7ec1151f8d0b27f09195b5c55c57e8ba9c9a34 /gcc/fortran/trans-array.c | |
| parent | 37058415033503179d69f4d58e08dddae0a44142 (diff) | |
| download | gcc-a90552d5640745659ced7aca0d285a61da3b11ff.zip gcc-a90552d5640745659ced7aca0d285a61da3b11ff.tar.gz gcc-a90552d5640745659ced7aca0d285a61da3b11ff.tar.bz2 | |
re PR fortran/32036 (Multiple evaluation of array index with bounds checking)
PR fortran/32036
* trans-array.c (gfc_conv_array_ref): Only evaluate index once.
* gfortran.dg/bounds_check_8.f90: New test.
* gfortran.dg/do_iterator_2.f90: Make code legal Fortran.
From-SVN: r126647
Diffstat (limited to 'gcc/fortran/trans-array.c')
| -rw-r--r-- | gcc/fortran/trans-array.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 8a23658..16f9577 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -2278,6 +2278,9 @@ gfc_conv_array_ref (gfc_se * se, gfc_array_ref * ar, gfc_symbol * sym, tree cond; char *msg; + /* Evaluate the indexse.expr only once. */ + indexse.expr = save_expr (indexse.expr); + /* Lower bound. */ tmp = gfc_conv_array_lbound (se->expr, n); cond = fold_build2 (LT_EXPR, boolean_type_node, |