7 if (f1 (74) .ne. 63 + 4) stop 1
11 if (g .ne. 63 + 9) stop 2
12 if (f3 (7_8, 11_8, 2_8) .ne. 11 * 7 + 13) stop 3
13 if (f4 (0_8, 31_8, 16_8, 46_8, 1_8, 2_8, 73) .ne. 32 + 5 * 48 &
14 & + 11 * 31 + 17 * 46) stop 4
19 integer, intent(in) :: y
22 !$omp taskloop firstprivate(x)lastprivate(x)
33 !$omp taskloop firstprivate(g)lastprivate(g)nogroup
42 integer(kind=8), intent(in) :: a, b, c
43 integer(kind=8) :: i, f3
45 !$omp taskloop default(none) lastprivate (i, l)
52 function f4 (a, b, c, d, e, f, m)
53 integer(kind=8), intent(in) :: a, b, c, d, e, f
54 integer(kind=8) :: i, j, f4
55 integer, intent(in) :: m
58 !$omp taskloop default (none) collapse (2) firstprivate (k) &
59 !$omp & lastprivate (i, j, k, l)
63 if (i .eq. 31 .and. j .eq. 46) then
69 f4 = i + 5 * j + 11 * k + 17 * l