diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-04 17:09:18 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-04 17:09:18 +0000 |
| commit | acf17823a9eca54692510d7f6dc687007d276705 (patch) | |
| tree | f1c33486dc9c123e9d50d22400d055cc28f5dbe2 /gcc/fortran/expr.c | |
| parent | d4b02242a82986ad05cca754407a15ffa694a6bb (diff) | |
| download | ppe42-gcc-acf17823a9eca54692510d7f6dc687007d276705.tar.gz ppe42-gcc-acf17823a9eca54692510d7f6dc687007d276705.zip | |
* expr.c (gfc_copy_shape_excluding): Change && to ||.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95891 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 5867f9bfaa5..f4a4b589b1f 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -352,7 +352,7 @@ gfc_copy_shape_excluding (mpz_t * shape, int rank, gfc_expr * dim) n = mpz_get_si (dim->value.integer); n--; /* Convert to zero based index */ - if (n < 0 && n >= rank) + if (n < 0 || n >= rank) return NULL; s = new_shape = gfc_get_shape (rank-1); |
