! This program used to ICE in convert_nonlocal_reference_op due to | |
! incorrect scoping of AFFINITY clause iterator variables. | |
program p | |
integer :: a(8) | |
!$omp task affinity (iterator(j=1:8) : a(j)) | |
!$omp end task | |
contains | |
integer function f(x) | |
class(*) :: x | |
end | |
end |