[PATCH, committed] Fix PR fortran/80674
Steve Kargl
sgk@troutmask.apl.washington.edu
Mon May 15 23:52:00 GMT 2017
I've committed the trivial patch of removing the redundant
conditional.
2017-05-15 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/80674
* trans-stmt.c (gfc_trans_integer_select): Remove redundant condition.
Index: trans-stmt.c
===================================================================
--- trans-stmt.c (revision 248078)
+++ trans-stmt.c (working copy)
@@ -2575,9 +2575,8 @@ gfc_trans_integer_select (gfc_code * cod
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);
--
Steve
20170425 https://www.youtube.com/watch?v=VWUpyCsUKR4
20161221 https://www.youtube.com/watch?v=IbCHE-hONow
More information about the Fortran
mailing list