Commit 37e860a2 by Steven G. Kargl Committed by Steven G. Kargl

* expr.c (gfc_copy_shape_excluding): Change && to ||.

From-SVN: r95891
parent 7235c300
Steven G. Kargl <kargls@comcast.net>
* expr.c (gfc_copy_shape_excluding): Change && to ||.
2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> 2005-03-04 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* trans-intrinsic.c (gfc_get_symbol_for_expr): Fix comment typo, * trans-intrinsic.c (gfc_get_symbol_for_expr): Fix comment typo,
......
...@@ -352,7 +352,7 @@ gfc_copy_shape_excluding (mpz_t * shape, int rank, gfc_expr * dim) ...@@ -352,7 +352,7 @@ gfc_copy_shape_excluding (mpz_t * shape, int rank, gfc_expr * dim)
n = mpz_get_si (dim->value.integer); n = mpz_get_si (dim->value.integer);
n--; /* Convert to zero based index */ n--; /* Convert to zero based index */
if (n < 0 && n >= rank) if (n < 0 || n >= rank)
return NULL; return NULL;
s = new_shape = gfc_get_shape (rank-1); s = new_shape = gfc_get_shape (rank-1);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment