blob: 43ec8007df737983f261877b42b2a016fef467ba (
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
|
module m
implicit none (external, type)
integer :: r, r2, r3
contains
subroutine foo
integer :: i, j, k
i = 0; j = 0; k = 0
!$omp scope private (i) reduction (+:r)
i = 1
r = r + 1
!$omp end scope nowait
!$omp scope private (i) reduction (task, +:r)
!$omp scope private (j) reduction (task, +:r2)
!$omp scope private (k) reduction (task, +:r3)
i = 1
j = 2
k = 3
r = r + 1
r2 = r2 + 1
r3 = r3 + 1
!$omp end scope
!$omp end scope
!$omp end scope
!$omp parallel
!$omp scope reduction (+:r) private (i)
!$omp scope reduction (+:r2) private (j)
!$omp single
i = 1
j = 2
r = r + 1
r2 = r2 + 1
!$omp end single
!$omp end scope nowait
!$omp end scope nowait
!$omp end parallel
end
end module
|
