diff options
| author | Kai Tietz <kai.tietz@onevision.com> | 2010-07-11 20:43:25 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-07-11 20:43:25 +0000 |
| commit | 5bf935c3c802f43abc4774da415099faf600eeb2 (patch) | |
| tree | 32270d72dec4236895613db1add2262290ef5091 /libgfortran/io/unix.c | |
| parent | f67df2ca8bbfccde03daf34c6c4a1078d0b67952 (diff) | |
| download | gcc-5bf935c3c802f43abc4774da415099faf600eeb2.zip gcc-5bf935c3c802f43abc4774da415099faf600eeb2.tar.gz gcc-5bf935c3c802f43abc4774da415099faf600eeb2.tar.bz2 | |
re PR fortran/44698 (I/O: FLUSH does not actually flush the buffer?)
2010-07-11 Kai Tietz <kai.tietz@onevision.com>
PR libfortran/44698
* io/unix.c (flush_buf): Add _commit for WIN32.
From-SVN: r162060
Diffstat (limited to 'libgfortran/io/unix.c')
| -rw-r--r-- | libgfortran/io/unix.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c index f0cd3b9..afa5f45 100644 --- a/libgfortran/io/unix.c +++ b/libgfortran/io/unix.c @@ -405,6 +405,10 @@ buf_flush (unix_stream * s) if (s->ndirty != 0) return -1; +#ifdef _WIN32 + _commit (s->fd); +#endif + return 0; } |