ierrno.c: Don't include "io/io.h".

	* intrinsics/ierrno.c: Don't include "io/io.h".
	* intrinsics/sleep.c: Likewise.
	* intrinsics/perror.c: Likewise.
	* intrinsics/stat.c: Likewise.
	* intrinsics/kill.c: Likewise.
	* intrinsics/time.c: Likewise.
	* intrinsics/fnum.c: Likewise.
	* intrinsics/rename.c: Likewise.
	* intrinsics/symlnk.c: Likewise.
	* intrinsics/chdir.c: Likewise.
	* intrinsics/link.c: Likewise.
	* intrinsics/random.c: Don't include "io/io.h". Include	<gthr.h>.
	* intrinsics/rand.c: Likewise.

From-SVN: r114962

libgfortran/ChangeLog

 2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
+	* intrinsics/ierrno.c: Don't include "io/io.h".
+	* intrinsics/sleep.c: Likewise.
+	* intrinsics/perror.c: Likewise.
+	* intrinsics/stat.c: Likewise.
+	* intrinsics/kill.c: Likewise.
+	* intrinsics/time.c: Likewise.
+	* intrinsics/fnum.c: Likewise.
+	* intrinsics/rename.c: Likewise.
+	* intrinsics/symlnk.c: Likewise.
+	* intrinsics/chdir.c: Likewise.
+	* intrinsics/link.c: Likewise.
+	* intrinsics/random.c: Don't include "io/io.h". Include	<gthr.h>.
+	* intrinsics/rand.c: Likewise.
+
+2006-06-24  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
 	PR fortran/28094
 	* Makefile.am: Add _mod_r10.F90 and _mod_r16.F90.
 	* Makefile.in: Regenerate.

libgfortran/intrinsics/chdir.c

@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif

libgfortran/intrinsics/fnum.c

@@ -31,8 +31,6 @@ Boston, MA 02110-1301, USA.  */
 #include "config.h"
 #include "libgfortran.h"
 
-#include "../io/io.h"
-
 /* FUNCTION FNUM(UNIT)
    INTEGER FNUM
    INTEGER, INTENT(IN), :: UNIT  */

libgfortran/intrinsics/ierrno.c

@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 
 /* INTEGER FUNCTION IERRNO()  */
 

libgfortran/intrinsics/kill.c

@@ -41,8 +41,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 /* SUBROUTINE KILL(PID, SIGNAL, STATUS)
    INTEGER, INTENT(IN) :: PID, SIGNAL
    INTEGER(KIND=1), INTENT(OUT), OPTIONAL :: STATUS

libgfortran/intrinsics/link.c

@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif

libgfortran/intrinsics/perror.c

@@ -34,8 +34,6 @@ Boston, MA 02110-1301, USA.  */
 #include <stdio.h>
 #include <errno.h>
 
-#include "../io/io.h"
-
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif

libgfortran/intrinsics/rand.c

@@ -37,7 +37,7 @@ Boston, MA 02110-1301, USA.  */
 
 #include "config.h"
 #include "libgfortran.h"
-#include "../io/io.h"
+#include <gthr.h>
 
 #define GFC_RAND_A	16807
 #define GFC_RAND_M	2147483647

libgfortran/intrinsics/random.c

@@ -31,7 +31,7 @@ Boston, MA 02110-1301, USA.  */
 
 #include "config.h"
 #include "libgfortran.h"
-#include "../io/io.h"
+#include <gthr.h>
 
 extern void random_r4 (GFC_REAL_4 *);
 iexport_proto(random_r4);

libgfortran/intrinsics/rename.c

@@ -35,8 +35,6 @@ Boston, MA 02110-1301, USA.  */
 #include <stdio.h>
 #include <string.h>
 
-#include "../io/io.h"
-
 /* SUBROUTINE RENAME(PATH1, PATH2, STATUS)
    CHARACTER(len=*), INTENT(IN) :: PATH1, PATH2
    INTEGER, INTENT(OUT), OPTIONAL :: STATUS  */

libgfortran/intrinsics/sleep.c

@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
 #endif

libgfortran/intrinsics/stat.c

@@ -49,8 +49,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 /* SUBROUTINE STAT(FILE, SARRAY, STATUS)
    CHARACTER(len=*), INTENT(IN) :: FILE
    INTEGER, INTENT(OUT), :: SARRAY(13)

libgfortran/intrinsics/symlnk.c

@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 #ifdef HAVE_STRING_H
 #include <string.h>
 #endif

libgfortran/intrinsics/time.c

@@ -44,8 +44,6 @@ Boston, MA 02110-1301, USA.  */
 #  endif
 #endif
 
-#include "../io/io.h"
-
 
 /* INTEGER(KIND=4) FUNCTION TIME()  */