From cf7b9de4fb3dd2a95471915760c2c4260a4ea320 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Sat, 31 Aug 2002 16:38:57 +0200 Subject: [PATCH] re PR libf2c/6367 (multiple repeat counts confuse namelist read into array) 2002-08-31 Toon Moene PR fortran/6367 * libI77/rsne.c (x_rsne): Use local variable no2 to count further list elements to read. From-SVN: r56706 --- libf2c/ChangeLog | 6 ++++++ libf2c/libI77/rsne.c | 10 +++++----- 2 files changed, 11 insertions(+), 5 deletions(-) diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog index 317542deac8..6627427edec 100644 --- a/libf2c/ChangeLog +++ b/libf2c/ChangeLog @@ -1,3 +1,9 @@ +2002-08-31 Toon Moene + + PR fortran/6367 + * libI77/rsne.c (x_rsne): Use local variable no2 to count further + list elements to read. + 2002-07-10 Toon Moene * libI77/open.c (f_open): Do not indicate unformatted file diff --git a/libf2c/libI77/rsne.c b/libf2c/libI77/rsne.c index f0490dbaf8a..f233a4ad9f8 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: