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

diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index 317542deac83366b6ed1e7f286e9ebcd52d5051b..6627427edeca0c849b8d8b39865cf195d6735360 100644 (file)
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c
index f0490dbaf8a4275cdbc198ac1f2a5e87f15ac8e9..f233a4ad9f87094bfcdc54ecc716e108ef647637 100644 (file)
--- a/libf2c/libI77/rsne.c
+++ b/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: