diff options
| author | Tobias Burnus <burnus@net-b.de> | 2008-02-05 21:40:45 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2008-02-05 21:40:45 +0100 |
| commit | da36ba2754d0ab1b9ac9603c939e8b83f1857a30 (patch) | |
| tree | f55c0651d9e1402d9592269de08e0587072ed722 /gcc/fortran/data.c | |
| parent | 6a279e922880678b6be3ae437422e146c1f76009 (diff) | |
| download | gcc-da36ba2754d0ab1b9ac9603c939e8b83f1857a30.zip gcc-da36ba2754d0ab1b9ac9603c939e8b83f1857a30.tar.gz gcc-da36ba2754d0ab1b9ac9603c939e8b83f1857a30.tar.bz2 | |
re PR fortran/35093 (gfortran.dg/data_constraints_1.f90)
2008-02-05 Tobias Burnus <burnus@net-b.de>
PR fortran/35093
* data.c (gfc_assign_data_value): Only free "size" if
it has not already been freed.
From-SVN: r132128
Diffstat (limited to 'gcc/fortran/data.c')
| -rw-r--r-- | gcc/fortran/data.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gcc/fortran/data.c b/gcc/fortran/data.c index 10fcd48..654c438 100644 --- a/gcc/fortran/data.c +++ b/gcc/fortran/data.c @@ -321,15 +321,17 @@ gfc_assign_data_value (gfc_expr *lvalue, gfc_expr *rvalue, mpz_t index) else { mpz_t size; - if (spec_size (ref->u.ar.as, &size) == SUCCESS - && mpz_cmp (offset, size) >= 0) + if (spec_size (ref->u.ar.as, &size) == SUCCESS) { + if (mpz_cmp (offset, size) >= 0) + { + mpz_clear (size); + gfc_error ("Data element above array upper bound at %L", + &lvalue->where); + return FAILURE; + } mpz_clear (size); - gfc_error ("Data element above array upper bound at %L", - &lvalue->where); - return FAILURE; } - mpz_clear (size); } /* Splay tree containing offset and gfc_constructor. */ |