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

re PR libfortran/22170 ([4.0 only] Handle format slash error)

Browse Source 
PR libfortran/22170
	* io/transfer.c (formatted_transfer): Do not iterate on the
	repeat count of a FMT_SLASH, since this is already done in
	next_format().

From-SVN: r101377
This commit is contained in:
Francois-Xavier Coudert 2005-06-28 12:43:23 +02:00 committed by François-Xavier Coudert
parent 2eef1bf70e
commit e082bf48ca
2 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
libgfortran/ChangeLog
View File

@ -1,3 +1,10 @@
2005-06-28 Francois-Xavier Coudert <coudert@clipper.ens.fr>
PR libfortran/22170
* io/transfer.c (formatted_transfer): Do not iterate on the
repeat count of a FMT_SLASH, since this is already done in
next_format().
2005-06-25 Thomas Koenig <Thomas.Koenig@online.de> 2005-06-25 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/22144 PR libfortran/22144

4
libgfortran/io/transfer.c
View File

@ -746,9 +746,7 @@ formatted_transfer (bt type, void *p, int len)
case FMT_SLASH: case FMT_SLASH:
consume_data_flag = 0 ; consume_data_flag = 0 ;
for (i = 0; i < f->repeat; i++) next_record (0);
next_record (0);
break; break;
case FMT_COLON: case FMT_COLON: