diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-03 14:57:13 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-03 14:57:13 +0000 |
| commit | f6c15546407cb4b86b14b0345015c59a34a7925a (patch) | |
| tree | cf30982e29c15ba9686eb7944649534fe4eb6e35 /libgfortran | |
| parent | a2f97da76feac655cd6ef8f5d519efe69ec06687 (diff) | |
| download | gcc-f6c15546407cb4b86b14b0345015c59a34a7925a.tar.gz | |
2007-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libfortran/33985
* io/transfer.c (finalize_transfer): Do not flush for
unformatted STREAM I/O.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@129870 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/io/transfer.c | 8 |
2 files changed, 11 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8d3a4b45e63..c64254288d6 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-11-03 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/33985 + * io/transfer.c (finalize_transfer): Do not flush for + unformatted STREAM I/O. + 2007-10-27 Tobias Burnus <burnus@net-b.de> * mk-kinds-h.sh: Change LANG=C to LC_ALL=C. diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 793f1941d04..38bb96bf9dd 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2640,9 +2640,11 @@ finalize_transfer (st_parameter_dt *dtp) if (is_stream_io (dtp)) { if (dtp->u.p.current_unit->flags.form == FORM_FORMATTED) - next_record (dtp, 1); - flush (dtp->u.p.current_unit->s); - sfree (dtp->u.p.current_unit->s); + { + next_record (dtp, 1); + flush (dtp->u.p.current_unit->s); + sfree (dtp->u.p.current_unit->s); + } return; } |