1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
|
! { 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
|
