4 intrinsic ior
, min
, max
11 use reduction5
, bitwise_or
=> ior
14 !$omp parallel sections num_threads (3) reduction (bitwise_or: n)
17 n
= bitwise_or (Z
'410', n
)
19 n
= bitwise_or (n
, Z
'2000')
20 !$omp end parallel sections
21 if (n
.ne
. Z
'243f') call abort
24 use reduction5
, min
=> max
, max
=> min
28 !$omp parallel sections num_threads (3) reduction (min: n) &
29 !$omp & reduction (max: m)
38 !$omp end parallel sections
39 if (m
.ne
. 3 .or
. n
.ne
. 15) call abort
43 ! { dg-final { cleanup-modules "reduction5" } }