OSDN Git Service

PR libfortran/23802
[pf3gnuchains/gcc-fork.git] / libgfortran / intrinsics / sleep.c
index 05edc3f..a9f579c 100644 (file)
@@ -39,6 +39,13 @@ Boston, MA 02110-1301, USA.  */
 #include <unistd.h>
 #endif
 
+#ifdef __MINGW32__
+# include <windows.h>
+# undef sleep
+# define sleep(x) Sleep(1000*(x))
+# define HAVE_SLEEP
+#endif
+
 /* SUBROUTINE SLEEP(SECONDS)
    INTEGER, INTENT(IN) :: SECONDS