diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2008-09-10 21:07:29 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2008-09-10 14:07:29 -0700 |
| commit | 3b35a6f890e3692cd1b6c4b6fb0540cf7f77d195 (patch) | |
| tree | f453f180c67bd5557cb1247536fbed10a0da4954 /gcc/fortran/expr.c | |
| parent | a76ddc7bda84d17ddc6577c60daf95897a2de515 (diff) | |
| download | gcc-3b35a6f890e3692cd1b6c4b6fb0540cf7f77d195.zip gcc-3b35a6f890e3692cd1b6c4b6fb0540cf7f77d195.tar.gz gcc-3b35a6f890e3692cd1b6c4b6fb0540cf7f77d195.tar.bz2 | |
expr.c (find_array_element): Reformat.
2008-09-10 H.J. Lu <hongjiu.lu@intel.com>
* expr.c (find_array_element): Reformat.
From-SVN: r140248
Diffstat (limited to 'gcc/fortran/expr.c')
| -rw-r--r-- | gcc/fortran/expr.c | 38 |
1 files changed, 18 insertions, 20 deletions
diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 6ff6d10..6f5aff8 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -1036,13 +1036,12 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar, } /* Check the bounds. */ if ((ar->as->upper[i] - && ar->as->upper[i]->expr_type == EXPR_CONSTANT - && mpz_cmp (e->value.integer, - ar->as->upper[i]->value.integer) > 0) - || - (ar->as->lower[i]->expr_type == EXPR_CONSTANT - && mpz_cmp (e->value.integer, - ar->as->lower[i]->value.integer) < 0)) + && ar->as->upper[i]->expr_type == EXPR_CONSTANT + && mpz_cmp (e->value.integer, + ar->as->upper[i]->value.integer) > 0) + || (ar->as->lower[i]->expr_type == EXPR_CONSTANT + && mpz_cmp (e->value.integer, + ar->as->lower[i]->value.integer) < 0)) { gfc_error ("Index in dimension %d is out of bounds " "at %L", i + 1, &ar->c_where[i]); @@ -1061,19 +1060,18 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar, mpz_mul (span, span, tmp); } - for (nelemen = mpz_get_ui (offset); nelemen > 0; nelemen--) - { - if (cons) - { - if (cons->iterator) - { - cons = NULL; - - goto depart; - } - cons = cons->next; - } - } + for (nelemen = mpz_get_ui (offset); nelemen > 0; nelemen--) + { + if (cons) + { + if (cons->iterator) + { + cons = NULL; + goto depart; + } + cons = cons->next; + } + } depart: mpz_clear (delta); |