git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Steven G. Kargl 2017-05-15 23:46:23 +00:00
parent 2016c841eb
commit b2954e124b
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
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> 2017-05-15 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/80752 PR fortran/80752

5
gcc/fortran/trans-stmt.c
View File

@ -2575,9 +2575,8 @@ gfc_trans_integer_select (gfc_code * code)
to represent unbounded cases. */ to represent unbounded cases. */
if (!cp->low if (!cp->low
|| (cp->low || (mpz_cmp (cp->low->value.integer,
&& mpz_cmp (cp->low->value.integer, cp->high->value.integer) != 0))
cp->high->value.integer) != 0))
high = gfc_conv_mpz_to_tree (cp->high->value.integer, high = gfc_conv_mpz_to_tree (cp->high->value.integer,
cp->high->ts.kind); cp->high->ts.kind);