diff options
author | Bud Davis <bdavis9659@comcast.net> | 2004-11-27 23:35:47 +0000 |
---|---|---|
committer | Bud Davis <bdavis9659@comcast.net> | 2004-11-27 23:35:47 +0000 |
commit | b0eddfbbac8da72f7d4c6e7011bf1b0cced97795 (patch) | |
tree | 65d480795eff18a7ac3db7791e5d0314e39c6456 /libgfortran | |
parent | 6bbf09595712677a05ab86bc1f21cfac1c8725ad (diff) |
2004-11-27 Bud Davis <bdavis9659@comcast.net>
PR fortran/18364
* gfortran.dg/endfile.f90: New test.
* io/endfile.c (st_endfile): flush the stream before truncating.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@91400 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/io/endfile.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index f4019cfe740..a27c75d77d5 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2004-11-27 Bud Davis <bdavis9659@comcast.net> + + PR fortran/18364 + * io/endfile.c (st_endfile): flush the stream before truncating. + 2004-11-25 Kelley Cook <kcook@gcc.gnu.org> * configure: Regenerate for libtool reversion. diff --git a/libgfortran/io/endfile.c b/libgfortran/io/endfile.c index ca40fe4eb79..d8462a3faed 100644 --- a/libgfortran/io/endfile.c +++ b/libgfortran/io/endfile.c @@ -38,6 +38,7 @@ st_endfile (void) if (u->current_record) next_record (1); + flush(u->s); struncate (u->s); u->endfile = AFTER_ENDFILE; } |