2 ! PR 83436 - this used to cause an error.
3 ! Original test case by Daan van Vugt.
7 !> Read an int from /dev/urandom
8 subroutine read_urandom_int(seed
, ierr
)
10 integer, intent(out
) :: seed
11 integer, intent(out
) :: ierr
13 character(len
=80) :: restart_file
14 write(restart_file
,'(A,A)') 'jorek', '_restart.h5'
16 open(newunit
=un
, file
="/dev/urandom", access
="stream", &
17 form
="unformatted", action
="read", status
="old", iostat
=ierr
)
22 end subroutine read_urandom_int
23 end module mod_random_seed
25 program test_random_seed
29 call read_urandom_int(seed
, ierr
)
30 end program test_random_seed