From 26b7ebf6bf2dac324aaba62bab4b07863abe2c37 Mon Sep 17 00:00:00 2001
From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Sat, 24 Sep 2005 10:55:37 +0200
Subject: [PATCH] re PR libfortran/23802 ([mingw32] sleep malfunction)

	PR libfortran/23802
	* intrinsics/sleep.c: Add correct sleep macro for MinGW.

From-SVN: r104599
---
 libgfortran/ChangeLog          | 5 +++++
 libgfortran/intrinsics/sleep.c | 7 +++++++
 2 files changed, 12 insertions(+)

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 760d40b84f4..9dd5da2156b 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	PR libfortran/23802
+	* intrinsics/sleep.c: Add correct sleep macro for MinGW.
+
 2005-09-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	PR libfortran/23380
diff --git a/libgfortran/intrinsics/sleep.c b/libgfortran/intrinsics/sleep.c
index 05edc3f54b7..a9f579cb69d 100644
--- a/libgfortran/intrinsics/sleep.c
+++ b/libgfortran/intrinsics/sleep.c
@@ -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
    
-- 
2.30.2