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