! { dg-do run }
! { dg-options "-fcoarray=single" }
program rantest

   implicit none

   logical, parameter :: debug = .false.
   character(len=20) name
   integer fd, i, n
   integer, allocatable :: n1(:), n2(:), n3(:)
   real x(4), y(4), z(4)

   if (debug) then
      write(name,'(A,I0)') 'dat', this_image()
      open(newunit=fd, file=name)
   end if

   call random_seed(size=n)
   allocate(n1(n), n2(n), n3(n))

   call random_init(.false., .false.)
   call random_seed(get=n1)
   call random_number(x)

   call random_init(.false., .false.)
   call random_seed(get=n2)
   call random_number(y)

   call random_init(.false., .false.)
   call random_seed(get=n3)
   call random_number(z)

   if (debug) then
      write(fd,'(A,4F12.6)') 'x = ', x
      write(fd,'(A,4F12.6)') 'y = ', y
      write(fd,'(A,4F12.6)') 'z = ', z
      write(fd,*)
      do i = 1, 5
         write(fd,'(I2,4I13)') i, n1(i), n2(i), n3(i)
      end do
   end if

end program rantest