diff options
author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-08-11 08:58:55 +0000 |
---|---|---|
committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-08-11 08:58:55 +0000 |
commit | 25482c165531711569fc25c7811c5e339e54e4f5 (patch) | |
tree | 60f87a35243956cff30462d3be48f97f4ba10d65 /libgfortran/runtime | |
parent | f454033a3ba68d276f305f2de26e9f19f128fb32 (diff) |
Replace KISS PRNG with xorshift1024* using per-thread state.
frontend:
2016-08-11 Janne Blomqvist <jb@gcc.gnu.org>
* check.c (gfc_check_random_seed): Use new seed size in check.
* intrinsic.texi (RANDOM_NUMBER): Updated documentation.
(RANDOM_SEED): Likewise.
testsuite:
2016-08-11 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.dg/random_7.f90: Take into account that the last seed
value is the special p value.
* gfortran.dg/random_seed_1.f90: Seed size is now constant.
libgfortran:
2016-08-11 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/random.c: Replace KISS with xorshift1024* using
per-thread state.
* runtime/main.c (init): Don't call random_seed_i4.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@239356 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/runtime')
-rw-r--r-- | libgfortran/runtime/main.c | 2 |
1 files changed, 0 insertions, 2 deletions
diff --git a/libgfortran/runtime/main.c b/libgfortran/runtime/main.c index 5065d9cf9b3..09b89bc3df3 100644 --- a/libgfortran/runtime/main.c +++ b/libgfortran/runtime/main.c @@ -119,8 +119,6 @@ init (void) set_fpu (); init_compile_options (); - - random_seed_i4 (NULL, NULL, NULL); } |