OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
This commit is contained in:
Francois-Xavier Coudert 2006-06-24 14:34:51 +02:00 committed by François-Xavier Coudert
parent 3e7cb1c7e7
commit 7606c786fd
14 changed files with 18 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
libgfortran/ChangeLog
View File

@ -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

2
libgfortran/intrinsics/chdir.c
View File

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

2
libgfortran/intrinsics/fnum.c
View File

@ -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 */

2
libgfortran/intrinsics/ierrno.c
View File

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

2
libgfortran/intrinsics/kill.c
View File

@ -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

2
libgfortran/intrinsics/link.c
View File

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

2
libgfortran/intrinsics/perror.c
View File

@ -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

2
libgfortran/intrinsics/rand.c
View File

@ -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

2
libgfortran/intrinsics/random.c
View File

@ -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);

2
libgfortran/intrinsics/rename.c
View File

@ -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 */

2
libgfortran/intrinsics/sleep.c
View File

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

2
libgfortran/intrinsics/stat.c
View File

@ -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)

2
libgfortran/intrinsics/symlnk.c
View File

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

2
libgfortran/intrinsics/time.c
View File

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