From dc31c238bd382061196e8e9f4f68057feac4ee9b Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Mon, 19 Dec 2016 13:41:32 +0000 Subject: 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 --- libgfortran/intrinsics/chmod.c | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'libgfortran/intrinsics/chmod.c') 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. */ -- cgit v1.2.1