program random
implicit none
integer::i
real::R

do i = 1,10
call random_number(R)
print*,R
end do

end program random