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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 0474b08b64afa871b0635068d7fa9d9c4369c5aa..cf5860414d0ec2b36beb6b2f8e30cd57682ef1e8 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,19 @@
+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

diff --git a/libgfortran/intrinsics/chdir.c b/libgfortran/intrinsics/chdir.c
index eaa83780ea038eee1b28facb1a3ee66ffe546a9d..e365a6afed89acc36ebd96137fffa2d57524e991 100644 (file)
--- a/libgfortran/intrinsics/chdir.c
+++ b/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

diff --git a/libgfortran/intrinsics/fnum.c b/libgfortran/intrinsics/fnum.c
index 1311856c8c105a78149b0e44234adb586a7fc2c1..02a6bb5e169d7018c8ceb618dc2d849fb3f7e768 100644 (file)
--- a/libgfortran/intrinsics/fnum.c
+++ b/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  */

diff --git a/libgfortran/intrinsics/ierrno.c b/libgfortran/intrinsics/ierrno.c
index 2e30caa2b3a353c29046f2c63ad94afcc0879e90..4b0c6da8edc4930f34a9a00ef4b6602027d2c096 100644 (file)
--- a/libgfortran/intrinsics/ierrno.c
+++ b/libgfortran/intrinsics/ierrno.c
@@ -33,8 +33,6 @@ Boston, MA 02110-1301, USA.  */
 
 #include <errno.h>
 
-#include "../io/io.h"
-
 
 /* INTEGER FUNCTION IERRNO()  */
 

diff --git a/libgfortran/intrinsics/kill.c b/libgfortran/intrinsics/kill.c
index 3df830cd4c87bb4caad99f6f6e58954d86df090f..0c25f1ba17b7b57031e778c0ba5a20901bbf57f3 100644 (file)
--- a/libgfortran/intrinsics/kill.c
+++ b/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

diff --git a/libgfortran/intrinsics/link.c b/libgfortran/intrinsics/link.c
index 3ddebf3f4dc71d05c159a264715fcb225af3de66..4627d47d02d2239f69ee084b039b61c7ecf356e0 100644 (file)
--- a/libgfortran/intrinsics/link.c
+++ b/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

diff --git a/libgfortran/intrinsics/perror.c b/libgfortran/intrinsics/perror.c
index 96edc9bcf3e68ddae8454cea8bc1b733eec8e58e..823ee485ca9a9ce078adfb9bce358fa3a29fc993 100644 (file)
--- a/libgfortran/intrinsics/perror.c
+++ b/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

diff --git a/libgfortran/intrinsics/rand.c b/libgfortran/intrinsics/rand.c
index 7af525e7d2aad106afb3e2ed68441008c6ee1ec1..2cc6b8179892b2315d3c1d25cb96130b6f5e5a72 100644 (file)
--- a/libgfortran/intrinsics/rand.c
+++ b/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

diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c
index 9ea2889fd2524d2f42f90f42acf815f526872171..4e304f6e03443afb92a97ec3d158e31612f90008 100644 (file)
--- a/libgfortran/intrinsics/random.c
+++ b/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);

diff --git a/libgfortran/intrinsics/rename.c b/libgfortran/intrinsics/rename.c
index 9e1d53308cbeba85adbf167c652ffd44d5caa480..c1be29bd79ba7b56fb561788577214700f8b954c 100644 (file)
--- a/libgfortran/intrinsics/rename.c
+++ b/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  */

diff --git a/libgfortran/intrinsics/sleep.c b/libgfortran/intrinsics/sleep.c
index 3a482fa2f1c6a92b96c269720e4a9159644a61d7..a344085c8c6a1ca0a92f51ad052092b42b9bde45 100644 (file)
--- a/libgfortran/intrinsics/sleep.c
+++ b/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

diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c
index ab134ab4b1805306382a64d51afcf1ad06ddc1fb..98511640f561971f61ab42538062501ee607f442 100644 (file)
--- a/libgfortran/intrinsics/stat.c
+++ b/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)

diff --git a/libgfortran/intrinsics/symlnk.c b/libgfortran/intrinsics/symlnk.c
index 2e77863598623ca3f4932f3c889c342acd8e937e..76835884a17fbe79be29eda585f603e45b2b0edd 100644 (file)
--- a/libgfortran/intrinsics/symlnk.c
+++ b/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

diff --git a/libgfortran/intrinsics/time.c b/libgfortran/intrinsics/time.c
index da5a1ffd333f157474f9e6e16be8e16d06ff819e..6c91e45b3f5b6b616333927923d915e902e993fc 100644 (file)
--- a/libgfortran/intrinsics/time.c
+++ b/libgfortran/intrinsics/time.c
@@ -44,8 +44,6 @@ Boston, MA 02110-1301, USA.  */
 #  endif
 #endif
 
-#include "../io/io.h"
-
 
 /* INTEGER(KIND=4) FUNCTION TIME()  */