8 if (f1 (74) .ne
. 63 + 4) STOP 1
12 if (g
.ne
. 63 + 9) STOP 2
13 if (f3 (7_8, 11_8, 2_8) .ne
. 11 * 7 + 13) STOP 3
14 if (f4 (0_8, 31_8, 16_8, 46_8, 1_8, 2_8, 73) .ne
. 32 + 5 * 48 &
15 & + 11 * 31 + 17 * 46) STOP 4
20 integer, intent(in
) :: y
23 !$omp taskloop firstprivate(x)lastprivate(x)
34 !$omp taskloop firstprivate(g)lastprivate(g)nogroup
43 integer(kind
=8), intent(in
) :: a
, b
, c
44 integer(kind
=8) :: i
, f3
46 !$omp taskloop default(none) lastprivate (i, l)
53 function f4 (a
, b
, c
, d
, e
, f
, m
)
54 integer(kind
=8), intent(in
) :: a
, b
, c
, d
, e
, f
55 integer(kind
=8) :: i
, j
, f4
56 integer, intent(in
) :: m
59 !$omp taskloop default (none) collapse (2) firstprivate (k) &
60 !$omp & lastprivate (i, j, k, l)
64 if (i
.eq
. 31 .and
. j
.eq
. 46) then
70 f4
= i
+ 5 * j
+ 11 * k
+ 17 * l