diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-06 04:00:38 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-06 04:00:38 +0000 |
| commit | 5d4c4e7660ead56d2c3edfd53a289ef9fd70c92d (patch) | |
| tree | 0729570978d55aa8e9152738691e48fed7796ac9 /libgfortran/io | |
| parent | 6ec634229c8c27537ad6479ea0d70ba50e780e19 (diff) | |
| download | ppe42-gcc-5d4c4e7660ead56d2c3edfd53a289ef9fd70c92d.tar.gz ppe42-gcc-5d4c4e7660ead56d2c3edfd53a289ef9fd70c92d.zip | |
2008-05-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/36131
* io/transfer.c (formatted_transfer_scalar): Revert patch for PR34974.
(next_record_w): Likewise.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@134973 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/transfer.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 8741758e61d..7071ab9128a 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -1303,11 +1303,6 @@ formatted_transfer_scalar (st_parameter_dt *dtp, bt type, void *p, int len, else read_x (dtp, dtp->u.p.skips); } - else - { - if (dtp->u.p.skips < 0) - flush (dtp->u.p.current_unit->s); - } break; @@ -2682,8 +2677,7 @@ next_record_w (st_parameter_dt *dtp, int done) if (max_pos > m) { length = (int) (max_pos - m); - sseek (dtp->u.p.current_unit->s, - file_position (dtp->u.p.current_unit->s) + length); + p = salloc_w (dtp->u.p.current_unit->s, &length); } #ifdef HAVE_CRLF len = 2; |
