diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-08-31 14:38:57 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2002-08-31 14:38:57 +0000 |
| commit | fea26e1ffc306288060d1a6dd712f089a90396b7 (patch) | |
| tree | e6d644a79a37d9596ef2285465a72e561fd2cda0 /libf2c | |
| parent | 182f3de8b2e932c0d402b6978a7a52fc11060622 (diff) | |
| download | gcc-fea26e1ffc306288060d1a6dd712f089a90396b7.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@56706 138bc75d-0d04-0410-961f-82ee72b054a4
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 317542deac8..6627427edec 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 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: |