program essai

  use mathstuff2
  implicit none

  integer                     :: foo, bar
  real                        :: quux
  double precision            :: somme

  write(0, *)   "----------------- essai -------------------"

  call init_random_seed()           ! in module 'mathstuff'
  somme = 0.0
  do foo=1, 500
    quux = rand() + rand()
    somme = somme + quux
    bar = mod(irand(), 7)
    print *, foo, quux, somme/foo, bar
  enddo

end program