0e99e09339
Update the PRNG from xorshift1024* to xoshiro256** by the same author. For details see http://prng.di.unimi.it/ and the paper at https://arxiv.org/abs/1805.01407 Also the seeding is slightly improved, by reading only 8 bytes from the operating system and using the simple splitmix64 PRNG to fill in the rest of the PRNG state (as recommended by the xoshiro author), instead of reading the entire state from the OS. Regtested on x86_64-pc-linux-gnu, Ok for trunk? gcc/fortran/ChangeLog: 2019-08-13 Janne Blomqvist <jb@gcc.gnu.org> PR fortran/91414 * check.c (gfc_check_random_seed): Reduce seed_size. * intrinsic.texi (RANDOM_NUMBER): Update to match new PRNG. gcc/testsuite/ChangeLog: 2019-08-13 Janne Blomqvist <jb@gcc.gnu.org> PR fortran/91414 * gfortran.dg/random_seed_1.f90: Update to match new seed size. libgfortran/ChangeLog: 2019-08-13 Janne Blomqvist <jb@gcc.gnu.org> PR fortran/91414 * intrinsics/random.c (prng_state): Update state struct. (master_state): Update to match new size. (get_rand_state): Update to match new PRNG. (rotl): New function. (xorshift1024star): Replace with prng_next. (prng_next): New function. (jump): Update for new PRNG. (lcg_parkmiller): Replace with splitmix64. (splitmix64): New function. (getosrandom): Fix return value, simplify. (init_rand_state): Use getosrandom only to get 8 bytes, splitmix64 to fill rest of state. (random_r4): Update to new function and struct names. (random_r8): Likewise. (random_r10): Likewise. (random_r16): Likewise. (arandom_r4): Liekwise. (arandom_r8): Likewise. (arandom_r10): Likwewise. (arandom_r16): Likewise. (xor_keys): Reduce size to match new PRNG. (random_seed_i4): Update to new function and struct names, remove special handling of variable p used in previous PRNG. (random_seed_i8): Likewise. From-SVN: r274361 |
||
---|---|---|
.. | ||
abort.c | ||
access.c | ||
args.c | ||
associated.c | ||
c99_functions.c | ||
chdir.c | ||
chmod.c | ||
clock.c | ||
cpu_time.c | ||
cshift0.c | ||
ctime.c | ||
date_and_time.c | ||
dprod_r8.f90 | ||
dtime.c | ||
env.c | ||
eoshift0.c | ||
eoshift2.c | ||
erfc_scaled_inc.c | ||
erfc_scaled.c | ||
etime.c | ||
execute_command_line.c | ||
exit.c | ||
extends_type_of.c | ||
f2c_specifics.F90 | ||
fnum.c | ||
gerror.c | ||
getcwd.c | ||
getlog.c | ||
getXid.c | ||
hostnm.c | ||
ierrno.c | ||
is_contiguous.c | ||
ishftc.c | ||
kill.c | ||
link.c | ||
move_alloc.c | ||
mvbits.c | ||
pack_generic.c | ||
perror.c | ||
rand.c | ||
random_init.f90 | ||
random.c | ||
rename.c | ||
reshape_generic.c | ||
reshape_packed.c | ||
selected_char_kind.c | ||
selected_int_kind.f90 | ||
selected_real_kind.f90 | ||
signal.c | ||
size.c | ||
sleep.c | ||
spread_generic.c | ||
stat.c | ||
string_intrinsics_inc.c | ||
string_intrinsics.c | ||
symlnk.c | ||
system_clock.c | ||
system.c | ||
time_1.h | ||
time.c | ||
umask.c | ||
unlink.c | ||
unpack_generic.c |