From e082bf48cae5afbf51ed8f89783975c6c6c2e550 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Tue, 28 Jun 2005 12:43:23 +0200 Subject: [PATCH] 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 | 7 +++++++ libgfortran/io/transfer.c | 4 +--- 2 files changed, 8 insertions(+), 3 deletions(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e7a3cda3472..41a545f1df3 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2005-06-28 Francois-Xavier Coudert + + 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 PR libfortran/22144 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index d26e7f7f54b..e78924a2b06 100644 --- 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: