blob: e2a17a93a1fd47809fec4bc9bc2e6f5bf95a8492 (
plain)
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 }
module reduction5
intrinsic ior, min, max
end module reduction5
call test1
call test2
contains
subroutine test1
use reduction5, bitwise_or => ior
integer :: n
n = int(Z'f')
!$omp parallel sections num_threads (3) reduction (bitwise_or: n)
n = ior (n, int(Z'20'))
!$omp section
n = bitwise_or (int(Z'410'), n)
!$omp section
n = bitwise_or (n, int(Z'2000'))
!$omp end parallel sections
if (n .ne. int(Z'243f')) stop 1
end subroutine
subroutine test2
use reduction5, min => max, max => min
integer :: m, n
m = 8
n = 4
!$omp parallel sections num_threads (3) reduction (min: n) &
!$omp & reduction (max: m)
if (m .gt. 13) m = 13
if (n .lt. 11) n = 11
!$omp section
if (m .gt. 5) m = 5
if (n .lt. 15) n = 15
!$omp section
if (m .gt. 3) m = 3
if (n .lt. -1) n = -1
!$omp end parallel sections
if (m .ne. 3 .or. n .ne. 15) stop 2
end subroutine test2
end
! { dg-final { cleanup-modules "reduction5" } }
|