OSDN Git Service

PR libfortran/22170
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 28 Jun 2005 10:43:23 +0000 (10:43 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 28 Jun 2005 10:43:23 +0000 (10:43 +0000)
* 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

libgfortran/ChangeLog
libgfortran/io/transfer.c

index e7a3cda..41a545f 100644 (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
index d26e7f7..e78924a 100644 (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: