gcc/testsuite/gfortran.dg/random_7.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdefault-integer-8" }
   3 !
   4 program trs
   5   implicit none
   6   integer :: size, ierr
   7   integer, allocatable, dimension(:) :: seed, check
   8   call test_random_seed(size)
   9   allocate(seed(size),check(size))
  10   call test_random_seed(put=seed)
  11   call test_random_seed(get=check)
  12   if (any (seed /= check)) call abort
  13 contains
  14   subroutine test_random_seed(size, put, get)
  15     integer, optional :: size
  16     integer, dimension(:), optional :: put
  17     integer, dimension(:), optional :: get
  18     call random_seed(size, put, get)
  19   end subroutine test_random_seed
  20 end program trs