diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-13 22:58:30 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-06-13 22:58:30 +0000 |
| commit | 4db2deda5a75a0b25773aa4ad4e13a40c5f3ed7e (patch) | |
| tree | 87140abfa92875e6ac3d94de1530eac1b616417c /libgfortran/libgfortran.h | |
| parent | edc0a75bcec8df8934acc6a24a709f660e04dd14 (diff) | |
| download | gcc-4db2deda5a75a0b25773aa4ad4e13a40c5f3ed7e.tar.gz | |
* Makefile.am (gfor_helper_src): Add runtime/normalize.f90.
* configure.ac: Add checks for nextafter and nextafterf.
* Makefile.in, config.h.in, configure: Regenerate.
* libgfortran.h (normalize_r4_i4, normalize_r8_i8): Declare.
* intrinsics/rand.c (rand): Use normalize_r4_i4.
* intrinsics/random.c (random_r4): Use normalize_r4_i4.
(random_r8): Use normalize_r8_i8.
* runtime/normalize.c: New file.
testsuite/
* gfortran.fortran-torture/execute/random_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83070 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/libgfortran.h')
| -rw-r--r-- | libgfortran/libgfortran.h | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/libgfortran.h b/libgfortran/libgfortran.h index 4eba606a666..3e1357fc794 100644 --- a/libgfortran/libgfortran.h +++ b/libgfortran/libgfortran.h @@ -408,5 +408,13 @@ GFC_INTEGER_4 compare_string (GFC_INTEGER_4, const char *, void random_seed (GFC_INTEGER_4 * size, gfc_array_i4 * put, gfc_array_i4 * get); +/* normalize.c */ + +#define normalize_r4_i4 prefix(normalize_r4_i4) +GFC_REAL_4 normalize_r4_i4 (GFC_UINTEGER_4, GFC_UINTEGER_4); + +#define normalize_r8_i8 prefix(normalize_r8_i8) +GFC_REAL_8 normalize_r8_i8 (GFC_UINTEGER_8, GFC_UINTEGER_8); + #endif |