gcc/testsuite/gfortran.dg/random_init_2.f90

   1 ! { dg-do run }
   2 program foo
   3
   4    real x(2), y(2)
   5
   6    call random_init(.false., .false.)
   7    call random_number(x)
   8 !   print *, x
   9    x = int(1e6*x)
  10
  11    call random_init(.false., .false.)
  12    call random_number(y)
  13 !   print *, y
  14    y = int(1e6*y)
  15
  16    if (any(x == y)) call abort
  17
  18    call random_init(.true., .false.)
  19    call random_number(x)
  20 !   print *, x
  21    x = int(1e6*x)
  22
  23    call random_init(.true., .false.)
  24    call random_number(y)
  25 !   print *, y
  26    y = int(1e6*y)
  27
  28    if (any(x /= y)) call abort
  29
  30 end program foo