re PR libfortran/66936 (io/unix.c gratuitously uses S_IRWXG and S_IRWXO on the basis...

	PR libfortran/66936
	* io/unix.c (__MINGW32__): Undefine HAVE_UMASK.

From-SVN: r226750

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index ffd6cfd3cbfff9a5024a2f79148f643291f8c2e1..0cfc80de21b9ea3c85aea29cad5c4c0a8fca6f9f 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-09  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/66936
+       * io/unix.c (__MINGW32__): Undefine HAVE_UMASK.
+
 2015-08-07  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        PR libfortran/66458

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index a1ce9a3ffe7ee12f0b416101f410edb05603ced9..4d8726c494bb74c18bbc553517c3c9183be4efdc 100644 (file)
--- a/libgfortran/io/unix.c
+++ b/libgfortran/io/unix.c
@@ -101,6 +101,12 @@ id_from_fd (const int fd)
 }
 
 #endif /* HAVE_WORKING_STAT */
+
+
+/* On mingw, we don't use umask in tempfile_open(), because it
+   doesn't support the user/group/other-based permissions.  */
+#undef HAVE_UMASK
+
 #endif /* __MINGW32__ */