1implicit none
2integer :: iterator(10), i
3
4!$omp taskgroup
5  !$omp task affinity(iterator)
6  !$omp end task
7
8  !$omp task affinity(iterator(3))
9  !$omp end task
10
11  !$omp task affinity(iterator(i=1:10) : iterator(i))
12  !$omp end task
13
14  !$omp task affinity(iterator(integer :: i))  ! { dg-error "Failed to match clause at" }
15  !!$omp end task
16
17  !$omp task affinity(iterator(integer :: i=1:1))  ! { dg-error "Expected ':' at" }
18  !!$omp end task
19
20  !$omp task affinity(iterator(i=)) ! { dg-error "Expected range-specification at" }
21!  !$omp end task
22!$omp end taskgroup
23
24end
25