1 ! { dg-additional-options "-ffree-line-length-none" }
5 integer, contiguous
:: a(0:)
13 !$omp masked filter (0)
17 !$omp masked filter (7)
21 !$omp masked filter (x)
25 !$omp masked taskloop simd filter (x) grainsize (12) simdlen (4)
29 !$omp end masked taskloop simd
31 !$omp parallel masked filter (x) firstprivate (x)
33 !$omp end parallel masked
36 !$omp masked filter (0)
37 !$omp masked filter (x)
43 subroutine foobar (d
, f
, fi
, p
, s
, g
, i1
, i2
, l
, ll
, nth
, ntm
, pp
, q
, r
, r2
)
44 implicit none (type, external)
46 integer :: i
, d
, f
, p
, s
, g
, l
, ll
, nth
, ntm
, pp
, q
, r
, r2
49 !$omp threadprivate (t)
51 !$omp parallel masked &
52 !$omp& private (p) firstprivate (f) if (parallel: i2) default(shared) shared(s) reduction(+:r) &
53 !$omp& num_threads (nth) proc_bind(spread) copyin(t) filter (d) ! allocate (f)
55 !$omp end parallel masked
57 !$omp taskgroup task_reduction (+:r2) ! allocate (r2)
58 !$omp masked taskloop &
59 !$omp& private (p) firstprivate (f) lastprivate (l) shared (s) default(shared) grainsize (g) collapse(1) untied if(taskloop: i1) final(fi) mergeable priority (pp) &
60 !$omp& reduction(default, +:r) in_reduction(+:r2) filter (d) ! allocate (f)
64 !$omp end masked taskloop
67 !$omp taskgroup task_reduction (+:r2) ! allocate (r2)
68 !$omp masked taskloop simd &
69 !$omp& private (p) firstprivate (f) lastprivate (l) shared (s) default(shared) grainsize (g) collapse(1) untied if(taskloop: i1) if(simd: i2) final(fi) mergeable priority (pp) &
70 !$omp& safelen(8) simdlen(4) linear(ll: 1) aligned(q: 32) reduction(default, +:r) in_reduction(+:r2) nontemporal(ntm) &
71 !$omp& order(concurrent) filter (d) ! allocate (f)
75 !$omp end masked taskloop simd
78 !$omp parallel masked taskloop &
79 !$omp& private (p) firstprivate (f) lastprivate (l) shared (s) default(shared) grainsize (g) collapse(1) untied if(taskloop: i1) final(fi) mergeable priority (pp) &
80 !$omp& reduction(default, +:r) if (parallel: i2) num_threads (nth) proc_bind(spread) copyin(t) filter (d) ! allocate (f)
84 !$omp end parallel masked taskloop
86 !$omp parallel masked taskloop simd &
87 !$omp& private (p) firstprivate (f) lastprivate (l) shared (s) default(shared) grainsize (g) collapse(1) untied if(taskloop: i1) if(simd: i2) final(fi) mergeable priority (pp) &
88 !$omp& safelen(8) simdlen(4) linear(ll: 1) aligned(q: 32) reduction(default, +:r) nontemporal(ntm) if (parallel: i2) num_threads (nth) proc_bind(spread) copyin(t) &
89 !$omp& order(concurrent) filter (d) ! allocate (f)
93 !$omp end parallel masked taskloop simd