Skip to content

R
riscv-gcc-1
Commit cf7b9de4 by Toon Moene Committed by Toon Moene
Options

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
parent ea9405c0
Showing with 11 additions and 5 deletions
libf2c/ChangeLog
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> 2002-07-10 Toon Moene <toon@moene.indiv.nluug.nl>
* libI77/open.c (f_open): Do not indicate unformatted file * libI77/open.c (f_open): Do not indicate unformatted file
......
libf2c/libI77/rsne.c
...@@ -515,12 +515,12 @@ have_amp: ...@@ -515,12 +515,12 @@ have_amp:
iva += dn0->delta; iva += dn0->delta;
if (f__lcount > 0) if (f__lcount > 0)
{ {
no1 = (ivae - iva) / size; ftnint no2 = (ivae - iva) / size;
if (no1 > f__lcount) if (no2 > f__lcount)
no1 = f__lcount; no2 = f__lcount;
if ((k = l_read (&no1, vaddr + iva, size, type))) if ((k = l_read (&no2, vaddr + iva, size, type)))
return k; return k;
iva += no1 * dn0->delta; iva += no2 * dn0->delta;
} }
} }
mustend: mustend:
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment