aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSteven G. Kargl <kargl@gcc.gnu.org>2017-05-15 23:46:23 +0000
committerSteven G. Kargl <kargl@gcc.gnu.org>2017-05-15 23:46:23 +0000
commitb2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0 (patch)
tree56242296c08c0319ee221b9ee9428e61c82703fb
parent2016c841ebc470eea52b8460715eae9949bcb7f1 (diff)
downloadgcc-b2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0.zip
gcc-b2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0.tar.gz
gcc-b2954e124bc411b0b9d8f5f7b4fe2e50f241bbd0.tar.bz2
re PR fortran/80674 (trunk/gcc/fortran/trans-stmt.c:2578]: (style) Redundant condition)
2017-05-15 Steven G. Kargl <kargl@gcc.gnu.org> PR fortran/80674 * trans-stmt.c (gfc_trans_integer_select): Remove redundant condition. From-SVN: r248079
-rw-r--r--gcc/fortran/ChangeLog5
-rw-r--r--gcc/fortran/trans-stmt.c5
2 files changed, 7 insertions, 3 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 07cbea0..542ee73 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,10 @@
2017-05-15 Steven G. Kargl <kargl@gcc.gnu.org>
+ PR fortran/80674
+ * trans-stmt.c (gfc_trans_integer_select): Remove redundant condition.
+
+2017-05-15 Steven G. Kargl <kargl@gcc.gnu.org>
+
PR fortran/80752
* expr.c (gfc_generate_initializer): If type conversion fails,
check for error and return NULL.
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);