[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