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().

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101377 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e7a3cda..41a545f 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -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

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index d26e7f7..e78924a 100644 (file)
--- a/libgfortran/io/transfer.c
+++ b/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: