1! { dg-additional-options "-fdump-tree-gimple" }
2subroutine foo
3  integer :: A(10), B(10), C(10)
4  interface
5    integer function ibar(x)
6      integer :: x
7    end function ibar
8  end interface
9
10  !$omp task affinity (iterator(j=ibar(0):ibar(1):ibar(2)) : a(ibar(j)), b(j), c(j))
11  !$omp end task
12end
13! { dg-final { scan-tree-dump-times "= ibar \\(&C\\." 3 "gimple" } }
14! { dg-final { scan-tree-dump-times "= ibar \\(j\\." 1 "gimple" } }
15