PR fortran/91414 Bugfix for previous commit
Correctly fill master_seed from os_seed. From-SVN: r274365
This commit is contained in:
parent
0e99e09339
commit
f77d27597d
|
@ -358,7 +358,10 @@ init_rand_state (prng_state* rs, const bool locked)
|
||||||
uint64_t os_seed;
|
uint64_t os_seed;
|
||||||
getosrandom (&os_seed, sizeof (os_seed));
|
getosrandom (&os_seed, sizeof (os_seed));
|
||||||
for (uint64_t i = 0; i < sizeof (master_state) / sizeof (uint64_t); i++)
|
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;
|
njumps = 0;
|
||||||
master_init = true;
|
master_init = true;
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue