Fortraneries/BloubWorld/essai.f90

16 lines
231 B
Fortran

program essai
use mathstuff
implicit none
integer :: foo
real :: quux
call init_random_seed()
do foo=1, 200000
quux = rand()
print *, foo, quux
enddo
end program