re PR libf2c/6367 (multiple repeat counts confuse namelist read into array)

2002-08-31  Toon Moene  <toon@moene.indiv.nluug.nl>

	PR fortran/6367
	* libI77/rsne.c (x_rsne): Use local variable no2 to count further
	list elements to read.

From-SVN: r56706

libf2c/ChangeLog

+2002-08-31  Toon Moene  <toon@moene.indiv.nluug.nl>
+
+	PR fortran/6367
+	* libI77/rsne.c (x_rsne): Use local variable no2 to count further
+	list elements to read.
+
 2002-07-10  Toon Moene  <toon@moene.indiv.nluug.nl>
 
 	* libI77/open.c (f_open): Do not indicate unformatted file

libf2c/libI77/rsne.c

@@ -515,12 +515,12 @@ have_amp:
 	      iva += dn0->delta;
 	      if (f__lcount > 0)
 		{
-		  no1 = (ivae - iva) / size;
-		  if (no1 > f__lcount)
-		    no1 = f__lcount;
-		  if ((k = l_read (&no1, vaddr + iva, size, type)))
+		  ftnint no2 = (ivae - iva) / size;
+		  if (no2 > f__lcount)
+		    no2 = f__lcount;
+		  if ((k = l_read (&no2, vaddr + iva, size, type)))
 		    return k;
-		  iva += no1 * dn0->delta;
+		  iva += no2 * dn0->delta;
 		}
 	    }
 	mustend: