diff options
| author | José Rui Faustino de Sousa <jrfsousa@gmail.com> | 2020-08-30 17:58:13 +0000 |
|---|---|---|
| committer | José Rui Faustino de Sousa <jrfsousa@gmail.com> | 2020-08-30 17:58:13 +0000 |
| commit | 8f7d99acf6d94eed6a7f9b9f76bd4c2243c660b2 (patch) | |
| tree | 33894bf7bf7f7f44eea7123a6cf8d1a87178bd93 /gcc/fortran | |
| parent | cd49b7067893b548a10c99ea0cb6aba2977eef2e (diff) | |
2020-8-20 José Rui Faustino de Sousa <jrfsousa@gmail.com>
gcc/fortran/ChangeLog:
PR fortran/96726
* expr.c (check_references): Change different relational operator
to less-than operator to avoid infinite loop.
gcc/testsuite/ChangeLog:
PR fortran/96726
* gfortran.dg/PR96726.f90: New test.
Diffstat (limited to 'gcc/fortran')
| -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 6707ca550a0..2ef01f0f14f 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -3273,7 +3273,7 @@ check_references (gfc_ref* ref, bool (*checker) (gfc_expr*)) switch (ref->type) { case REF_ARRAY: - for (dim = 0; dim != ref->u.ar.dimen; ++dim) + for (dim = 0; dim < ref->u.ar.dimen; ++dim) { if (!checker (ref->u.ar.start[dim])) return false; |