program test_init_random_seed
real :: r(10,4)
call init_random_seed()
call random_number(r)
do i =1,10
write (*, *) (r(i,j),j=1,4)
end do
end program test_init_random_seed