diff options
author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-08-31 16:38:57 +0200 |
---|---|---|
committer | Toon Moene <toon@gcc.gnu.org> | 2002-08-31 14:38:57 +0000 |
commit | cf7b9de4fb3dd2a95471915760c2c4260a4ea320 (patch) | |
tree | e6d644a79a37d9596ef2285465a72e561fd2cda0 /libf2c | |
parent | ea9405c0806a0814412a07dfd5a7485f67177c23 (diff) | |
download | gcc-cf7b9de4fb3dd2a95471915760c2c4260a4ea320.zip gcc-cf7b9de4fb3dd2a95471915760c2c4260a4ea320.tar.gz gcc-cf7b9de4fb3dd2a95471915760c2c4260a4ea320.tar.bz2 |
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
Diffstat (limited to 'libf2c')
-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: |