From 5bf935c3c802f43abc4774da415099faf600eeb2 Mon Sep 17 00:00:00 2001
From: Kai Tietz <kai.tietz@onevision.com>
Date: Sun, 11 Jul 2010 20:43:25 +0000
Subject: 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
---
 libgfortran/io/unix.c | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'libgfortran/io')

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;
 }
 
-- 
cgit v1.1