From b2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 15 May 2017 23:46:23 +0000 Subject: [PATCH] re PR fortran/80674 (trunk/gcc/fortran/trans-stmt.c:2578]: (style) Redundant condition) 2017-05-15 Steven G. Kargl PR fortran/80674 * trans-stmt.c (gfc_trans_integer_select): Remove redundant condition. From-SVN: r248079 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/trans-stmt.c | 5 ++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 07cbea03c92..542ee730b9b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2017-05-15 Steven G. Kargl + + PR fortran/80674 + * trans-stmt.c (gfc_trans_integer_select): Remove redundant condition. + 2017-05-15 Steven G. Kargl PR fortran/80752 diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 98687c80637..e4f1da54ac7 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); -- 2.30.2