diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 98687c8..e4f1da5 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -2575,9 +2575,8 @@ gfc_trans_integer_select (gfc_code * code) to represent unbounded cases. */ if (!cp->low - || (cp->low - && mpz_cmp (cp->low->value.integer, - cp->high->value.integer) != 0)) + || (mpz_cmp (cp->low->value.integer, + cp->high->value.integer) != 0)) high = gfc_conv_mpz_to_tree (cp->high->value.integer, cp->high->ts.kind); |