This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug libfortran/15619] random_seed(get) affects sequence of numbers
- From: "pbrook at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 26 May 2004 23:12:55 -0000
- Subject: [Bug libfortran/15619] random_seed(get) affects sequence of numbers
- References: <20040523174947.15619.pbrook@gcc.gnu.org>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- 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