diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-11-27 23:35:47 +0000 |
|---|---|---|
| committer | Bud Davis <bdavis@gcc.gnu.org> | 2004-11-27 23:35:47 +0000 |
| commit | 203f344c3dc29789cd6d2f57f34c10b05860c239 (patch) | |
| tree | 65d480795eff18a7ac3db7791e5d0314e39c6456 /libgfortran/io | |
| parent | 22e54023ca7fbcbe877b51687a9a6698640ee011 (diff) | |
| download | gcc-203f344c3dc29789cd6d2f57f34c10b05860c239.zip gcc-203f344c3dc29789cd6d2f57f34c10b05860c239.tar.gz gcc-203f344c3dc29789cd6d2f57f34c10b05860c239.tar.bz2 | |
re PR libfortran/18364 (endfile does not truncate file)
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.
From-SVN: r91400
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/endfile.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/libgfortran/io/endfile.c b/libgfortran/io/endfile.c index ca40fe4..d8462a3 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; } |