[Bug libfortran/15619] random_seed(get) affects sequence of numbers
pbrook at gcc dot gnu dot org
gcc-bugzilla@gcc.gnu.org
Thu May 27 16:46:00 GMT 2004
------- Additional Comments From pbrook at gcc dot gnu dot org 2004-05-26 23:12 -------
Still fails the following test.
program prog
integer, allocatable :: a(:)
integer n
real w, x, y, z
call random_seed(size=n)
allocate(a(n))
call random_number (x)
call random_seed(get=a)
call random_number(x)
call random_seed(put=a)
call random_number(y)
if (x .ne. y) call abort ()
end program
--
What |Removed |Added
----------------------------------------------------------------------------
Keywords|patch |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15619
More information about the Gcc-bugs
mailing list