2006-08-01 Thomas Koenig <Thomas.Koenig@online.de>
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 1 Aug 2006 17:15:04 +0000 (17:15 +0000)
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 1 Aug 2006 17:15:04 +0000 (17:15 +0000)
commit0ee93d5770ac0a7cb6fc5fb51c9875f3929815d4
tree2c5173e380e77a7fd222230cb14ad82228f9ce72
parent10bd53a622ba639015a5d0e86ea8ad34f82e0dc2
2006-08-01  Thomas Koenig  <Thomas.Koenig@online.de>

PR libfortran/28542
* Makefile.am:  Remove normalize.c.
* aclocal.m4:  Regenerate using aclocal 1.9.3.
* Makefile.in:  Regenerate using automake 1.9.3.
* libgfortran.h:  #include <float.h>.
Define GFC_REAL_*_DIGITS and GFC_REAL_*_RADIX.
Remove prototypes for normalize_r4_i4 and normalize_r8_i8.
* intrinsics/random.c (top level): Add prototypes for
random_r10, arandom_r10, random_r16 and arandom_r16.
(rnumber_4):  New static function.
(rnumber_8):  New static function.
(rnumber_10): New static function.
(rnumber_16): New static function.
(top level):  Set to kiss_size to 12 if we have
REAL(KIND=16), to 8 otherwise.
Define KISS_DEFAULT_SEED_1, KISS_DEFAULT_SEED_2 and
KISS_DEFAULT_SEED_3.
(kiss_random_kernel):  Take argument to differentiate
between different random number generators.
(random_r4):  Add argument to call to kiss_random_kernel,
use rnumber_*.
(random_r8):  Likewise.
(random_r10):  New function.
(random_r16):  New function.
(arandom_r4):  Add argument to call to kiss_random_kernel,
use_rnumber_*.
(arandom_r8):  Likewise.
(arandom_r10):  New function.
(arandom_r16):  New function.
* intrinsics/rand.c (rand):  Use shift and mask.
* runtime/normalize.c:  Remove.

2006-08-01  Thomas Koenig  <Thomas.Koenig@online.de>

PR libfortran/28542
* gfortran.dg/random_3.f90:  New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@115858 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/random_3.f90 [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/Makefile.am
libgfortran/Makefile.in
libgfortran/aclocal.m4
libgfortran/intrinsics/rand.c
libgfortran/intrinsics/random.c
libgfortran/libgfortran.h
libgfortran/runtime/normalize.c [deleted file]