diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-15 19:55:05 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-15 19:55:05 +0000 |
| commit | eca4df545439699956a77f4638c59943e35a17b4 (patch) | |
| tree | 3b66f741646de966e13644d5b4bea988310353c1 /gcc/fortran/simplify.c | |
| parent | e9661e6e5b1603d266e571e12bfa188d18e7e964 (diff) | |
| download | gcc-eca4df545439699956a77f4638c59943e35a17b4.tar.gz | |
fortran/
PR fortran/13792
* simplify.c (gfc_simplify_bound): Copy the bound expression.
testsuite/
PR fortran/13792
* gfortran.fortran-torture/execute/bounds.f90: Add check for
compile-time simplification.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84773 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/simplify.c')
| -rw-r--r-- | gcc/fortran/simplify.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/simplify.c b/gcc/fortran/simplify.c index a90d05d0460..d67b5c68ace 100644 --- a/gcc/fortran/simplify.c +++ b/gcc/fortran/simplify.c @@ -1892,9 +1892,9 @@ gfc_simplify_bound (gfc_expr * array, gfc_expr * dim, int upper) i = mpz_get_si (dim->value.integer); if (upper) - return as->upper[i-1]; + return gfc_copy_expr (as->upper[i-1]); else - return as->lower[i-1]; + return gfc_copy_expr (as->lower[i-1]); } |