r133104 - in /trunk/libgfortran: ChangeLog intr...

[fxcoudert@gcc.gnu.org]

Author: fxcoudert
Date: Tue Mar 11 10:49:13 2008
New Revision: 133104

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=133104
Log:
	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.

Modified:
    trunk/libgfortran/ChangeLog
    trunk/libgfortran/intrinsics/random.c