From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Mon, 19 Dec 2016 13:41:32 +0000 (+0000)
Subject: chmod.c (chmod_internal): Fix case where mode_t is different from unsigned int.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=dc31c238bd382061196e8e9f4f68057feac4ee9b;p=gcc.git

chmod.c (chmod_internal): Fix case where mode_t is different from unsigned int.

	* intrinsics/chmod.c (chmod_internal): Fix case where mode_t is
	different from unsigned int.

From-SVN: r243796
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index a53cc2d7073..129e7325a24 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-12-19  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
+
+	* intrinsics/chmod.c (chmod_internal): Fix case where mode_t is
+	different from unsigned int.
+
 2016-12-18  Dominique d'Humieres  <dominiq@lps.ens.fr>
 
 	PR fortran/78545
diff --git a/libgfortran/intrinsics/chmod.c b/libgfortran/intrinsics/chmod.c
index 5aae77b0553..4f4d723daf1 100644
--- a/libgfortran/intrinsics/chmod.c
+++ b/libgfortran/intrinsics/chmod.c
@@ -82,16 +82,10 @@ chmod_internal (char *file, char *mode, gfc_charlen_type mode_len)
 
   if (mode[0] >= '0' && mode[0] <= '9')
     {
-#ifdef __MINGW32__
       unsigned fmode;
       if (sscanf (mode, "%o", &fmode) != 1)
 	return 1;
-      file_mode = (mode_t) fmode;
-#else
-      if (sscanf (mode, "%o", &file_mode) != 1)
-	return 1;
-#endif
-      return chmod (file, file_mode);
+      return chmod (file, (mode_t) fmode);
     }
 
   /* Read the current file mode. */