[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