2009-09-04 Tobias Burnus <burnus@net-b.de>

        PR fortran/41219
        * intrinsics/getlog.c: Define _POSIX for MINGW32.

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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 065a4ba..14d823d 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2009-09-04  Tobias Burnus  <burnus@net-b.de>
+
+       PR fortran/41219
+       * intrinsics/getlog.c: Define _POSIX for MINGW32.
+

 2009-09-03  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/41219
 2009-09-03  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/41219

diff --git a/libgfortran/intrinsics/getlog.c b/libgfortran/intrinsics/getlog.c
index 0456c57..e75aa1c 100644 (file)
--- a/libgfortran/intrinsics/getlog.c
+++ b/libgfortran/intrinsics/getlog.c
@@ -28,6 +28,9 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #include <string.h>
 
 #ifdef HAVE_UNISTD_H
 #include <string.h>
 
 #ifdef HAVE_UNISTD_H

+#  if defined __MINGW32__ && defined  HAVE_GETLOGIN
+#    define _POSIX 1
+#  endif

 #include <unistd.h>
 #endif
 #ifdef HAVE_PWD_H
 #include <unistd.h>
 #endif
 #ifdef HAVE_PWD_H