4 !$omp parallel num_threads (4)
7 if (i
.ne
. 21 .or
. k
.ne
. 20) call abort
8 !$omp parallel num_threads (4)
11 if (i
.ne
. 64 .or
. k
.ne
. 61) call abort
12 !$omp parallel num_threads (4)
15 if (i
.ne
. 14 .or
. k
.ne
. 11) call abort
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) call abort
65 !$omp parallel do lastprivate (j, l) num_threads (4) firstprivate (l)
69 if (j
.ne
. 64 .or
. l
.ne
. 61) call abort
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) call abort
82 !$omp parallel do lastprivate (i, k) num_threads (4)
86 if (i
.ne
. 21 .or
. k
.ne
. 20) call abort
91 !$omp parallel do lastprivate (i, k) num_threads (4)
95 if (i
.ne
. 64 .or
. k
.ne
. 61) call abort
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) call abort
110 !$omp parallel num_threads (4)
111 !$omp do lastprivate (i, k)
116 if (i
.ne
. 21 .or
. k
.ne
. 20) call abort
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) call abort
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) call abort
140 end subroutine test12
141 end program lastprivate