This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[PATCH, committed] Fix PR fortran/80674
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org, gcc-patches at gcc dot gnu dot org
- Date: Mon, 15 May 2017 16:52:25 -0700
- Subject: [PATCH, committed] Fix PR fortran/80674
- Authentication-results: sourceware.org; auth=none
- Reply-to: sgk at troutmask dot apl dot washington dot edu
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