Added parenthesis to reduce warning messages. || logical element always takes the least precedence.
This commit is contained in:
parent
7bf73c7db2
commit
0708f2b942
1 changed files with 2 additions and 2 deletions
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue