diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-06-28 12:43:23 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-06-28 10:43:23 +0000 |
| commit | e082bf48cae5afbf51ed8f89783975c6c6c2e550 (patch) | |
| tree | 30be637bdb18b40386bd05bd409489d6301749b9 | |
| parent | 2eef1bf70e483e9af853c3fabedc12b4191711ac (diff) | |
| download | gcc-e082bf48cae5afbf51ed8f89783975c6c6c2e550.zip gcc-e082bf48cae5afbf51ed8f89783975c6c6c2e550.tar.gz gcc-e082bf48cae5afbf51ed8f89783975c6c6c2e550.tar.bz2 | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 7 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 4 |
2 files changed, 8 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index e7a3cda..41a545f 100644 --- 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 --- 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: |