From 0708f2b9426711b045df5de8f2eb0bfaa1f9500d Mon Sep 17 00:00:00 2001 From: Harry Moffat Date: Mon, 21 Dec 2009 17:31:52 +0000 Subject: [PATCH] Added parenthesis to reduce warning messages. || logical element always takes the least precedence. --- ext/f2c_math/xermsg.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/ext/f2c_math/xermsg.c b/ext/f2c_math/xermsg.c index b1eac2ab1..2f23e5844 100644 --- a/ext/f2c_math/xermsg.c +++ b/ext/f2c_math/xermsg.c @@ -364,7 +364,7 @@ static logical c_true = TRUE_; /* THEN WHETHER THE PROGRAM WILL CONTINUE. */ - if (mkntrl == 2 && *level >= 1 || mkntrl == 1 && *level == 2) { + if ((mkntrl == 2 && *level >= 1) || (mkntrl == 1 && *level == 2)) { i__1 = ltemp; s_copy(temp + i__1, " PROG ABORTED,", ltemp + 14 - i__1, (ftnlen) 14); @@ -437,7 +437,7 @@ L20: /* CONTROL FLAG IS SET FOR RECOVERY, THEN RETURN. */ L30: - if (*level <= 0 || *level == 1 && mkntrl <= 1) { + if ((*level <= 0) || (*level == 1 && mkntrl <= 1)) { return 0; }