Commit 3b35a6f8 by H.J. Lu Committed by H.J. Lu

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
parent a76ddc7b
2008-09-10 H.J. Lu <hongjiu.lu@intel.com>
* expr.c (find_array_element): Reformat.
2008-09-10 Tobias Burnus <burnus@net-b.de> 2008-09-10 Tobias Burnus <burnus@net-b.de>
PR fortran/37420 PR fortran/37420
......
...@@ -1039,8 +1039,7 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar, ...@@ -1039,8 +1039,7 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar,
&& ar->as->upper[i]->expr_type == EXPR_CONSTANT && ar->as->upper[i]->expr_type == EXPR_CONSTANT
&& mpz_cmp (e->value.integer, && mpz_cmp (e->value.integer,
ar->as->upper[i]->value.integer) > 0) ar->as->upper[i]->value.integer) > 0)
|| || (ar->as->lower[i]->expr_type == EXPR_CONSTANT
(ar->as->lower[i]->expr_type == EXPR_CONSTANT
&& mpz_cmp (e->value.integer, && mpz_cmp (e->value.integer,
ar->as->lower[i]->value.integer) < 0)) ar->as->lower[i]->value.integer) < 0))
{ {
...@@ -1068,7 +1067,6 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar, ...@@ -1068,7 +1067,6 @@ find_array_element (gfc_constructor *cons, gfc_array_ref *ar,
if (cons->iterator) if (cons->iterator)
{ {
cons = NULL; cons = NULL;
goto depart; goto depart;
} }
cons = cons->next; cons = cons->next;
......
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