diff options
| -rw-r--r-- | libf2c/ChangeLog | 6 | ||||
| -rw-r--r-- | libf2c/libI77/rsne.c | 10 |
2 files changed, 11 insertions, 5 deletions
diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 317542d..6627427 100644 --- 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 f0490db..f233a4a 100644 --- 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: |