1! { dg-do run } 2! { dg-options "-fdefault-integer-8" } 3! 4program 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 seed(:) = huge(seed) / 17 11 call test_random_seed(put=seed) 12 call test_random_seed(get=check) 13 print *, seed 14 print *, check 15 if (any (seed /= check)) call abort 16contains 17 subroutine test_random_seed(size, put, get) 18 integer, optional :: size 19 integer, dimension(:), optional :: put 20 integer, dimension(:), optional :: get 21 call random_seed(size, put, get) 22 end subroutine test_random_seed 23end program trs 24