From: Janne Blomqvist <jb@gcc.gnu.org>
Date: Tue, 13 Aug 2019 09:02:25 +0000 (+0300)
Subject: PR fortran/91414 Correctly fill master_state from os_seed.
X-Git-Tag: releases/gcc-9.3.0~738
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4c98406c521e824127b4e6bfce29ef0ead4de06a;p=thirdparty%2Fgcc.git

PR fortran/91414 Correctly fill master_state from os_seed.

From-SVN: r274364
---

diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c
index 75d1315e450c..5d81bcba74a9 100644
--- a/libgfortran/intrinsics/random.c
+++ b/libgfortran/intrinsics/random.c
@@ -349,7 +349,10 @@ init_rand_state (xorshift1024star_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;
     }