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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index e7a3cda3472a9b5d77327bee26ba4ae9a7274c26..41a545f1df3d681d84725416d117e03af506251e 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 d26e7f7f54bf07bc744f99b3f7bc49790f20cc86..e78924a2b06871fbfa5465f19833ae9ff5b7327f 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: