OSDN Git Service

2010-07-11 Kai Tietz <kai.tietz@onevision.com>
authorjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2010 20:43:25 +0000 (20:43 +0000)
committerjvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 11 Jul 2010 20:43:25 +0000 (20:43 +0000)
PR libfortran/44698
* io/unix.c (flush_buf): Add _commit for WIN32.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@162060 138bc75d-0d04-0410-961f-82ee72b054a4

libgfortran/ChangeLog
libgfortran/io/unix.c

index 9a523d5..943e8e1 100644 (file)
@@ -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
index f0cd3b9..afa5f45 100644 (file)
@@ -405,6 +405,10 @@ buf_flush (unix_stream * s)
   if (s->ndirty != 0)
     return -1;
 
+#ifdef _WIN32
+  _commit (s->fd);
+#endif
+
   return 0;
 }