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

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

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>
PR libfortran/22144

View File

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