IRAND (The GNU Fortran Compiler) (original) (raw)

program test_irand integer,parameter :: seed = 86456

call srand(seed) print *, irand(), irand(), irand(), irand() print *, irand(seed), irand(), irand(), irand() end program test_irand