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: r226989

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3f2ef6806deb65f7b96e36093b53a41093c63a55..132f12c81a0ae7cb924ff29074db6d976671447f 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2015-08-18  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+       PR libfortran/66936
+       * io/unix.c (__MINGW32__): Undefine HAVE_UMASK.
+
 2015-07-29  Uros Bizjak  <ubizjak@gmail.com>
 
        PR libgfortran/66650

diff --git a/libgfortran/io/unix.c b/libgfortran/io/unix.c
index a2df440e2877260b9416655907d7eafa9640606b..a6b46f8854dbe3ac7e6c9624034cc448bcb2a7ea 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__ */