| ! { 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(.true., .false.) |
| call random_seed(get=n1) |
| call random_number(x) |
| |
| call random_init(.true., .false.) |
| call random_seed(get=n2) |
| call random_number(y) |
| |
| call random_init(.true., .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 |