OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

PR fortran/91414 Bugfix for previous commit 

Correctly fill master_seed from os_seed.

From-SVN: r274365
This commit is contained in:
Janne Blomqvist 2019-08-13 12:04:18 +03:00
parent 0e99e09339
commit f77d27597d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/intrinsics/random.c
View File

@ -358,7 +358,10 @@ init_rand_state (prng_state* rs, const bool locked)
uint64_t os_seed;
getosrandom (&os_seed, sizeof (os_seed));
for (uint64_t i = 0; i < sizeof (master_state) / sizeof (uint64_t); i++)
master_state[i] = splitmix64 (os_seed);
{
os_seed = splitmix64 (os_seed);
master_state[i] = os_seed;
}
njumps = 0;
master_init = true;
}