4 !$omp parallel num_threads (4)
7 if (i
.ne
. 21 .or
. k
.ne
. 20) STOP 1
8 !$omp parallel num_threads (4)
11 if (i
.ne
. 64 .or
. k
.ne
. 61) STOP 2
12 !$omp parallel num_threads (4)
15 if (i
.ne
. 14 .or
. k
.ne
. 11) STOP 3
29 !$omp do lastprivate (i, k)
37 !$omp do lastprivate (i, k)
49 !$omp do lastprivate (i, k)
50 do i
= -10, 11, ret3 ()
56 !$omp parallel do lastprivate (j, l) num_threads (4)
60 if (j
.ne
. 21 .or
. l
.ne
. 20) STOP 4
65 !$omp parallel do lastprivate (j, l) num_threads (4) firstprivate (l)
69 if (j
.ne
. 64 .or
. l
.ne
. 61) STOP 5
73 !$omp parallel do lastprivate (j, l) num_threads (4)
74 do j
= -10, 11, ret3 ()
77 if (j
.ne
. 14 .or
. l
.ne
. 11) STOP 6
82 !$omp parallel do lastprivate (i, k) num_threads (4)
86 if (i
.ne
. 21 .or
. k
.ne
. 20) STOP 7
91 !$omp parallel do lastprivate (i, k) num_threads (4)
95 if (i
.ne
. 64 .or
. k
.ne
. 61) STOP 8
101 !$omp parallel do lastprivate (i, k) num_threads (4) firstprivate (k)
102 do i
= -10, 11, ret3 ()
105 if (i
.ne
. 14 .or
. k
.ne
. 11) STOP 9
110 !$omp parallel num_threads (4)
111 !$omp do lastprivate (i, k)
116 if (i
.ne
. 21 .or
. k
.ne
. 20) STOP 10
117 end subroutine test10
121 !$omp parallel num_threads (4)
122 !$omp do lastprivate (i, k)
127 if (i
.ne
. 64 .or
. k
.ne
. 61) STOP 11
128 end subroutine test11
133 !$omp parallel num_threads (4)
134 !$omp do lastprivate (i, k) firstprivate (k)
135 do i
= -10, 11, ret3 ()
139 if (i
.ne
. 14 .or
. k
.ne
. 11) STOP 12
140 end subroutine test12
141 end program lastprivate