Commit ebeb17c7 by Andreas Jaeger

random.c: Include unistd.h for close and read prototypes...

	* 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.

From-SVN: r82442
parent 1ea7e6ad
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.
2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de> 2004-05-27 Tobias Schlueter <tobias.shclueter@physik.uni-muenchen.de>
PR fortran/15234 PR fortran/15234
......
/* Implementation of the ABORT intrinsic. /* 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). This file is part of the GNU Fortran 95 runtime library (libgfortran).
...@@ -19,7 +19,7 @@ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, ...@@ -19,7 +19,7 @@ write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA. */ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
#include <assert.h> #include <stdlib.h>
void prefix(abort) (void); void prefix(abort) (void);
......
/* Implementation of the RANDOM intrinsics /* 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> Contributed by Lars Segerlund <seger@linuxmail.org>
The algorithm was taken from the paper : The algorithm was taken from the paper :
...@@ -37,7 +37,11 @@ Boston, MA 02111-1307, USA. */ ...@@ -37,7 +37,11 @@ Boston, MA 02111-1307, USA. */
#include <sys/types.h> #include <sys/types.h>
#include <sys/stat.h> #include <sys/stat.h>
#include <fcntl.h> #include <fcntl.h>
#include <assert.h>
#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif
#include "libgfortran.h" #include "libgfortran.h"
/*Use the 'big' generator by default ( period -> 2**19937 ). */ /*Use the 'big' generator by default ( period -> 2**19937 ). */
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment