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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 9a523d5eb82ae46506b28025d893d08a9872f117..943e8e1db5166d36bcd4ab841da58ba54b2c429d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2010-07-11  Kai Tietz  <kai.tietz@onevision.com>
+
+       PR libfortran/44698
+       * io/unix.c (flush_buf): Add _commit for WIN32.
+
 2010-06-28  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/43298

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index f0cd3b9b16cb7800fbba586c5b308d62f455bb23..afa5f453bd26aa5fe030f184bc1bf70e0b883360 100644 (file)
--- 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;
 }