1! { dg-do run }
2! { dg-options "-fcoarray=single" }
3program rantest
4
5   implicit none
6
7   logical, parameter :: debug = .false.
8   character(len=20) name
9   integer fd, i, n
10   integer, allocatable :: n1(:), n2(:), n3(:)
11   real x(4), y(4), z(4)
12
13   if (debug) then
14      write(name,'(A,I0)') 'dat', this_image()
15      open(newunit=fd, file=name)
16   end if
17
18   call random_seed(size=n)
19   allocate(n1(n), n2(n), n3(n))
20
21   call random_init(.true., .false.)
22   call random_seed(get=n1)
23   call random_number(x)
24
25   call random_init(.true., .false.)
26   call random_seed(get=n2)
27   call random_number(y)
28
29   call random_init(.true., .false.)
30   call random_seed(get=n3)
31   call random_number(z)
32
33   if (debug) then
34      write(fd,'(A,4F12.6)') 'x = ', x
35      write(fd,'(A,4F12.6)') 'y = ', y
36      write(fd,'(A,4F12.6)') 'z = ', z
37      write(fd,*)
38      do i = 1, 5
39         write(fd,'(I2,4I13)') i, n1(i), n2(i), n3(i)
40      end do
41   end if
42
43end program rantest
44