* libI77/dfe.c (s_rdfe, s_wdfe): Wrap parentheses around

[pf3gnuchains/gcc-fork.git] / libf2c / libI77 / rsne.c

diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c
index 85834c9..4b52134 100644 (file)
--- a/libf2c/libI77/rsne.c
+++ b/libf2c/libI77/rsne.c
@@ -66,7 +66,7 @@ hash (hashtab * ht, register char *s)
   register hashentry *h;
   char *s0 = s;
 
-  for (x = 0; c = *s++; x = x & 0x4000 ? ((x << 1) & 0x7fff) + 1 : x << 1)
+  for (x = 0; (c = *s++); x = x & 0x4000 ? ((x << 1) & 0x7fff) + 1 : x << 1)
     x += c;
   for (h = *(zot = ht->tab + x % ht->htsize); h; h = h->next)
     if (!strcmp (s0, h->name))
@@ -83,7 +83,7 @@ mk_hashtab (Namelist * nl)
   hashentry *he;
 
   hashtab **x, **x0, *y;
-  for (x = &nl_cache; y = *x; x0 = x, x = &y->next)
+  for (x = &nl_cache; (y = *x); x0 = x, x = &y->next)
     if (nl == y->nl)
       return y;
   if (n_nlcache >= MAX_NL_CACHE)
@@ -138,10 +138,10 @@ nl_init (void)
   register char *s;
   register int c;
 
-  for (s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; c = *s++;)
+  for (s = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"; (c = *s++);)
     Alpha[c]
       = Alphanum[c] = Alpha[c + 'a' - 'A'] = Alphanum[c + 'a' - 'A'] = c;
-  for (s = "0123456789_"; c = *s++;)
+  for (s = "0123456789_"; (c = *s++);)
     Alphanum[c] = c;
 }
 
@@ -161,7 +161,7 @@ getname (register char *s, int slen)
        ch = 115;
       errfl (f__elist->cierr, ch, "namelist read");
     }
-  while (*s = Alphanum[GETC (ch) & 0xff])
+  while ((*s = Alphanum[GETC (ch) & 0xff]))
     if (s < se)
       s++;
   if (ch == EOF)
@@ -209,17 +209,17 @@ getdimen (int *chp, dimen * d, ftnlen delta, ftnlen extent, ftnlen * x1)
   register int k;
   ftnlen x2, x3;
 
-  if (k = getnum (chp, x1))
+  if ((k = getnum (chp, x1)))
     return k;
   x3 = 1;
   if (*chp == ':')
     {
-      if (k = getnum (chp, &x2))
+      if ((k = getnum (chp, &x2)))
        return k;
       x2 -= *x1;
       if (*chp == ':')
        {
-         if (k = getnum (chp, &x3))
+         if ((k = getnum (chp, &x3)))
            return k;
          if (!x3)
            return 123;
@@ -311,7 +311,7 @@ top:
 #endif
       }
 have_amp:
-  if (ch = getname (buf, sizeof (buf)))
+  if ((ch = getname (buf, sizeof (buf))))
     return ch;
   nl = (Namelist *) a->cifmt;
   if (strcmp (buf, nl->name))
@@ -371,7 +371,7 @@ have_amp:
            if (ch <= ' ' && ch >= 0 || ch == ',')
              continue;
            Ungetc (ch, f__cf);
-           if (ch = getname (buf, sizeof (buf)))
+           if ((ch = getname (buf, sizeof (buf))))
              return ch;
            goto havename;
          }
@@ -398,7 +398,7 @@ have_amp:
            {
              if (type != TYCHAR)
                errfl (a->cierr, 122, where);
-             if (k = getdimen (&ch, dn, (ftnlen) size, (ftnlen) size, &b))
+             if ((k = getdimen (&ch, dn, (ftnlen) size, (ftnlen) size, &b)))
                errfl (a->cierr, k, where);
              if (ch != ')')
                errfl (a->cierr, 115, where);
@@ -414,7 +414,7 @@ have_amp:
          nomax = span = dims[1];
          ivae = iva + size * nomax;
          colonseen = 0;
-         if (k = getdimen (&ch, dn, size, nomax, &b))
+         if ((k = getdimen (&ch, dn, size, nomax, &b)))
            errfl (a->cierr, k, where);
          no = dn->extent;
          b0 = dims[2];
@@ -426,7 +426,7 @@ have_amp:
                errfl (a->cierr, 115, where);
              dn1 = dn + 1;
              span /= *dims;
-             if (k = getdimen (&ch, dn1, dn->delta ** dims, span, &b1))
+             if ((k = getdimen (&ch, dn1, dn->delta ** dims, span, &b1)))
                errfl (a->cierr, k, where);
              ex *= *dims;
              b += b1 * ex;
@@ -446,7 +446,7 @@ have_amp:
          dn0 = dimens;
          if (type == TYCHAR && ch == '(' /*) */ )
            {
-             if (k = getdimen (&ch, &substr, size, size, &b))
+             if ((k = getdimen (&ch, &substr, size, size, &b)))
                errfl (a->cierr, k, where);
              if (ch != ')')
                errfl (a->cierr, 115, where);
@@ -483,7 +483,7 @@ have_amp:
              dn1->delta -= ex;
            }
        }
-      else if (dims = v->dims)
+      else if ((dims = v->dims))
        {
          no = no1 = dims[1];
          ivae = iva + no * size;
@@ -506,7 +506,7 @@ have_amp:
          else if (iva + no1 * size > ivae)
            no1 = (ivae - iva) / size;
          f__lquit = 0;
-         if (k = l_read (&no1, vaddr + iva, size, type))
+         if ((k = l_read (&no1, vaddr + iva, size, type)))
            return k;
          if (f__lquit == 1)
            return 0;
@@ -518,7 +518,7 @@ have_amp:
                  no1 = (ivae - iva) / size;
                  if (no1 > f__lcount)
                    no1 = f__lcount;
-                 if (k = l_read (&no1, vaddr + iva, size, type))
+                 if ((k = l_read (&no1, vaddr + iva, size, type)))
                    return k;
                  iva += no1 * dn0->delta;
                }
@@ -584,7 +584,7 @@ s_rsne (cilist * a)
 
   f__external = 1;
   l_eof = 0;
-  if (n = c_le (a))
+  if ((n = c_le (a)))
     return n;
   if (f__curunit->uwrt && f__nowreading (f__curunit))
     err (a->cierr, errno, where0);