1! { dg-additional-options "-fdump-tree-original" }
2implicit none
3integer :: iterator(10), i
4
5!$omp taskgroup
6  !$omp task affinity(iterator)
7  !$omp end task
8
9  !$omp task affinity(iterator(3))
10  !$omp end task
11
12  !$omp task affinity(iterator(i=1:10) : iterator(i))
13  !$omp end task
14
15!$omp end taskgroup
16
17end
18
19! { dg-final { scan-tree-dump-times "pragma omp task affinity\\(iterator\\)" 1 "original" } }
20
21! { dg-final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\\[2\\\]\\)" 1 "original" } }
22
23! { dg-final { scan-tree-dump-times "#pragma omp task affinity\\(iterator\\(integer\\(kind=4\\) i=1:10:1\\):iterator\\\[.* <?i>? \\+ -1\\\]\\)" 1 "original" } }
24