From 4db2deda5a75a0b25773aa4ad4e13a40c5f3ed7e Mon Sep 17 00:00:00 2001 From: pbrook Date: Sun, 13 Jun 2004 22:58:30 +0000 Subject: * 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 --- libgfortran/libgfortran.h | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'libgfortran/libgfortran.h') 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 -- cgit v1.2.1