OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR libf2c/6367 (multiple repeat counts confuse namelist read into array)

Browse Source 
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
This commit is contained in:
Toon Moene 2002-08-31 16:38:57 +02:00 committed by Toon Moene
parent ea9405c080
commit cf7b9de4fb
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libf2c/ChangeLog
View File

@ -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

10
libf2c/libI77/rsne.c
View File

@ -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: