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

libgfortran/ChangeLog

+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

libgfortran/io/transfer.c

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