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