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