Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/random_init_6.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900 (2018-10-24)
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
131
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
1 ! { dg-do run }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
2 ! { dg-options "-fcoarray=single" }
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
3 program rantest
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
4
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
5 implicit none
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
6
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
7 logical, parameter :: debug = .false.
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
8 character(len=20) name
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
9 integer fd, i, n
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
10 integer, allocatable :: n1(:), n2(:), n3(:)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
11 real x(4), y(4), z(4)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
12
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
13 if (debug) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
14 write(name,'(A,I0)') 'dat', this_image()
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
15 open(newunit=fd, file=name)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
16 end if
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
17
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
18 call random_seed(size=n)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
19 allocate(n1(n), n2(n), n3(n))
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
20
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
21 call random_init(.false., .true.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
22 call random_seed(get=n1)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
23 call random_number(x)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
24
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
25 call random_init(.false., .true.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
26 call random_seed(get=n2)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
27 call random_number(y)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
28
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
29 call random_init(.false., .true.)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
30 call random_seed(get=n3)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
31 call random_number(z)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
32
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
33 if (debug) then
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
34 write(fd,'(A,4F12.6)') 'x = ', x
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
35 write(fd,'(A,4F12.6)') 'y = ', y
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
36 write(fd,'(A,4F12.6)') 'z = ', z
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
37 write(fd,*)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
38 do i = 1, 5
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
39 write(fd,'(I2,4I13)') i, n1(i), n2(i), n3(i)
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
40 end do
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
41 end if
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
42
84e7813d76e9 gcc-8.2
mir3636
parents:
diff changeset
43 end program rantest