4 integer :: i
, ia (6), n
, cnt
6 double precision :: d
, da (5)
17 ca
= cmplx (8.5, -3.0)
21 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
22 !$omp & reduction (+:i, ia, r, ra, d, da, c, ca)
23 !$ if (i .ne. 0 .or. any (ia .ne. 0)) v = .true.
24 !$ if (r .ne. 0 .or. any (ra .ne. 0)) v = .true.
25 !$ if (d .ne. 0 .or. any (da .ne. 0)) v = .true.
26 !$ if (c .ne. cmplx (0) .or. any (ca .ne. cmplx (0))) v = .true.
27 n
= omp_get_thread_num ()
29 cnt
= omp_get_num_threads ()
37 ca(1) = cmplx (4.5, 5)
38 else if (n
.eq
. 1) then
46 ca(2:3) = cmplx (-1, 6)
60 if (i
.ne
. 8 .or
. any (ia
.ne
. (/3, 3, 1, 6, 6, 8/))) call abort
61 if (r
.ne
. 8 .or
. any (ra
.ne
. (/9.5, 8.0, 1.5, 1.5/))) call abort
62 if (d
.ne
. 12.5 .or
. any (da
.ne
. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort
63 if (c
.ne
. cmplx (11.5, -5)) call abort
64 if (ca(1) .ne
. cmplx (12, 2)) call abort
65 if (ca(2) .ne
. cmplx (6.5, 3) .or
. ca(2) .ne
. ca(3)) call abort
75 ca
= cmplx (8.5, -3.0)
79 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
80 !$omp & reduction (-:i, ia, r, ra, d, da, c, ca)
81 !$ if (i .ne. 0 .or. any (ia .ne. 0)) v = .true.
82 !$ if (r .ne. 0 .or. any (ra .ne. 0)) v = .true.
83 !$ if (d .ne. 0 .or. any (da .ne. 0)) v = .true.
84 !$ if (c .ne. cmplx (0) .or. any (ca .ne. cmplx (0))) v = .true.
85 n
= omp_get_thread_num ()
87 cnt
= omp_get_num_threads ()
95 ca(1) = cmplx (4.5, 5)
96 else if (n
.eq
. 1) then
104 ca(2:3) = cmplx (-1, 6)
118 if (i
.ne
. 8 .or
. any (ia
.ne
. (/3, 3, 1, 6, 6, 8/))) call abort
119 if (r
.ne
. 8 .or
. any (ra
.ne
. (/9.5, 8.0, 1.5, 1.5/))) call abort
120 if (d
.ne
. 12.5 .or
. any (da
.ne
. (/8.0, 16.5, 16.5, 14.0, 5.5/))) call abort
121 if (c
.ne
. cmplx (11.5, -5)) call abort
122 if (ca(1) .ne
. cmplx (12, 2)) call abort
123 if (ca(2) .ne
. cmplx (6.5, 3) .or
. ca(2) .ne
. ca(3)) call abort
137 !$omp parallel num_threads (3) private (n) reduction (.or.:v) &
138 !$omp & reduction (*:i, ia, r, ra, d, da, c, ca)
139 !$ if (i .ne. 1 .or. any (ia .ne. 1)) v = .true.
140 !$ if (r .ne. 1 .or. any (ra .ne. 1)) v = .true.
141 !$ if (d .ne. 1 .or. any (da .ne. 1)) v = .true.
142 !$ if (c .ne. cmplx (1) .or. any (ca .ne. cmplx (1))) v = .true.
143 n
= omp_get_thread_num ()
145 cnt
= omp_get_num_threads ()
153 ca(1) = cmplx (-5, 0)
154 else if (n
.eq
. 1) then
161 ca(2:3) = cmplx (0, -1)
174 if (i
.ne
. 6 .or
. any (ia
.ne
. (/4, 4, 8, -16, -16, -8/))) call abort
175 if (r
.ne
. 8 .or
. any (ra
.ne
. (/4., -2., -1., -1./))) call abort
176 if (d
.ne
. -40 .or
. any (da
.ne
. (/32., -64., -64., 64., -32./))) call abort
177 if (c
.ne
. cmplx (0, 15)) call abort
178 if (ca(1) .ne
. cmplx (0, 10)) call abort
179 if (ca(2) .ne
. cmplx (-2, 0) .or
. ca(2) .ne
. ca(3)) call abort