OSDN Git Service

2002-08-31 Toon Moene <toon@moene.indiv.nluug.nl>
authortoon <toon@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 31 Aug 2002 14:38:57 +0000 (14:38 +0000)
committertoon <toon@138bc75d-0d04-0410-961f-82ee72b054a4>
Sat, 31 Aug 2002 14:38:57 +0000 (14:38 +0000)
PR fortran/6367
* libI77/rsne.c (x_rsne): Use local variable no2 to count further
list elements to read.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@56706 138bc75d-0d04-0410-961f-82ee72b054a4

libf2c/ChangeLog
libf2c/libI77/rsne.c

index 317542d..6627427 100644 (file)
@@ -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
index f0490db..f233a4a 100644 (file)
@@ -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: