diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2011-08-21 12:02:12 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2011-08-21 12:02:12 +0000 |
| commit | 2d27cb4477b945b1b836a357a0440fd7d8d6ca28 (patch) | |
| tree | 0e5ad03159fa92780d35e2b2498740262aafcf90 /gcc/fortran/resolve.c | |
| parent | 5193535841f9a72931e48b9a5b5e4883b736ce0b (diff) | |
| download | gcc-2d27cb4477b945b1b836a357a0440fd7d8d6ca28.zip gcc-2d27cb4477b945b1b836a357a0440fd7d8d6ca28.tar.gz gcc-2d27cb4477b945b1b836a357a0440fd7d8d6ca28.tar.bz2 | |
re PR fortran/50130 (ICE with invalid array slice)
2011-08-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/50130
* resolve.c (resolve_array_ref): Don't calculate upper bound
if the stride is zero.
2011-08-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/50130
* gfortran.dg/zero_stride_1.f90: New test.
From-SVN: r177940
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index ea184a2..85d2091 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -4569,10 +4569,11 @@ resolve_array_ref (gfc_array_ref *ar) /* Fill in the upper bound, which may be lower than the specified one for something like a(2:10:5), which is identical to a(2:7:5). Only relevant for strides not equal - to one. */ + to one. Don't try a division by zero. */ if (ar->dimen_type[i] == DIMEN_RANGE && ar->stride[i] != NULL && ar->stride[i]->expr_type == EXPR_CONSTANT - && mpz_cmp_si (ar->stride[i]->value.integer, 1L) != 0) + && mpz_cmp_si (ar->stride[i]->value.integer, 1L) != 0 + && mpz_cmp_si (ar->stride[i]->value.integer, 0L) != 0) { mpz_t size, end; |