| commit | ee0e163a21bb70f9fee44b1ab50bd7d6e81275bc | |
| author | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 19 Aug 2016 14:12:32 +0000 (19 14:12 +0000) | ||
| committer | jb <jb@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Fri, 19 Aug 2016 14:12:32 +0000 (19 14:12 +0000) | ||
| tree | 3dd25be020bc1f538120f175d6ec7627ccda7699 | treesnapshot (tar.gz zip) |
| parent | fdabea44ff9c943fa0a0e77f8816043c74afe105 | commitdiff |
Always initialize PRNG using random data from the OS.
libgfortran:
2016-08-16 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/random.c (master_init): New variable.
(init_rand_state): Move below getosrandom (), maybe initialize
master_state.
(random_seed_i4): If called with no arguments, set master_init to
false, and reinitialize. If called with PUT=, set master_init to
true.
(random_seed_i8): Likewise.
testsuite:
2016-08-16 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.dg/random_4.f90: Initialize seed before using, handle
the last special seed value.
* gfortran.dg/random_7.f90: Use size for last array member instead
of hardcoded value.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@239611 138bc75d-0d04-0410-961f-82ee72b054a4
libgfortran:
2016-08-16 Janne Blomqvist <jb@gcc.gnu.org>
* intrinsics/random.c (master_init): New variable.
(init_rand_state): Move below getosrandom (), maybe initialize
master_state.
(random_seed_i4): If called with no arguments, set master_init to
false, and reinitialize. If called with PUT=, set master_init to
true.
(random_seed_i8): Likewise.
testsuite:
2016-08-16 Janne Blomqvist <jb@gcc.gnu.org>
* gfortran.dg/random_4.f90: Initialize seed before using, handle
the last special seed value.
* gfortran.dg/random_7.f90: Use size for last array member instead
of hardcoded value.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@239611 138bc75d-0d04-0410-961f-82ee72b054a4