]> git.ipfire.org Git - thirdparty/gcc.git/commit
re PR libfortran/32812 (random_seed and date_and_time)
authorFrancois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Tue, 11 Mar 2008 10:49:13 +0000 (10:49 +0000)
committerFrançois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Tue, 11 Mar 2008 10:49:13 +0000 (10:49 +0000)
commit2d3ca8b7219003d4504d49aec0bff1566391a69a
tree9465714d2574c68cfa85ff97a809f30a6e00bd63
parent1ffe34d9f7823398e9937858cfdfbbd33e2d9130
re PR libfortran/32812 (random_seed and date_and_time)

PR libfortran/32812
* intrinsics/random.c (scramble_seed, unscramble_seed): New
functions.
(random_seed_i4): Scramble the seed the user gives us before
storing it, and unscramble it when we return it back later.

From-SVN: r133104
libgfortran/ChangeLog
libgfortran/intrinsics/random.c