program trs
  implicit none
  integer :: size
  integer, allocatable, dimension(:) :: seed, check
  call random_seed(size)
  allocate(seed(size),check(size))
  seed(:) = huge(seed) / 17
  call random_seed(put=seed)
  call random_seed(get=check)
  if (any (seed /= check)) print *, 'Seed: ', seed, new_line('a'), 'Check: ', check
end program trs