Remove warnings in libgfortran

[Andreas Jaeger <aj at suse dot de>]

This patch fixes:
/cvs/gcc/libgfortran/intrinsics/abort.c: In function `_gfortran_abort':
/cvs/gcc/libgfortran/intrinsics/abort.c:29: warning: implicit declaration of function 'abort'
/cvs/gcc/libgfortran/intrinsics/random.c: In function `_gfortran_random_seed':
/cvs/gcc/libgfortran/intrinsics/random.c:95: warning: implicit declaration of function 'read'
/cvs/gcc/libgfortran/intrinsics/random.c:96: warning: implicit declaration of function 'close'

Bootstrapped/Regtested on Linux/AMD64.  

Ok to commit?

Andreas

2004-05-30  Andreas Jaeger  <aj@suse.de>

	* intrinsics/random.c: Include unistd.h for close and read
	prototypes, remove unneeded inclusion of assert.h.

	* intrinsics/abort.c: Include stdlib.h for abort prototype, remove
	unneeded inclusion of assert.h.

============================================================
Index: intrinsics/random.c
--- intrinsics/random.c	23 May 2004 16:18:22 -0000	1.4
+++ intrinsics/random.c	29 May 2004 22:38:49 -0000
@@ -1,5 +1,5 @@
 /* Implementation of the RANDOM intrinsics
-   Copyright 2002 Free Software Foundation, Inc.
+   Copyright 2002, 2004 Free Software Foundation, Inc.
    Contributed by Lars Segerlund <seger@linuxmail.org>
 
   The algorithm was taken from the paper :
@@ -37,7 +37,11 @@ Boston, MA 02111-1307, USA.  */
 #include <sys/types.h>
 #include <sys/stat.h>
 #include <fcntl.h>
-#include <assert.h>
+
+#ifdef HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
 #include "libgfortran.h"
 
 /*Use the 'big' generator by default ( period -> 2**19937 ).  */
============================================================
Index: intrinsics/abort.c
--- intrinsics/abort.c	13 May 2004 06:41:02 -0000	1.2
+++ intrinsics/abort.c	29 May 2004 22:38:49 -0000
@@ -1,5 +1,5 @@
 /* Implementation of the ABORT intrinsic.
-   Copyright (C) 2003 Free Software Foundation, Inc.
+   Copyright (C) 2003, 2004 Free Software Foundation, Inc.
 
 This file is part of the GNU Fortran 95 runtime library (libgfortran).
 
@@ -19,7 +19,7 @@ write to the Free Software Foundation, I
 Boston, MA 02111-1307, USA.  */
 
 #include "libgfortran.h"
-#include <assert.h>
+#include <stdlib.h>
 
 
 void prefix(abort) (void);

-- 
 Andreas Jaeger, aj@suse.de, http://www.suse.de/~aj
  SUSE Linux AG, Maxfeldstr. 5, 90409 Nürnberg, Germany
   GPG fingerprint = 93A3 365E CE47 B889 DF7F  FED1 389A 563C C272 A126

Attachment: pgp00000.pgp
Description: PGP signature