gcc/testsuite/gfortran.dg/gomp/affinity-clause-4.f90

subroutine foo
  integer :: A(10), B(10), C(10)
  interface
    integer function ibar(x)
      integer :: x
    end function ibar
  end interface

  !$omp parallel default(none)  ! { dg-note "enclosing 'parallel'" }
  !$omp task affinity (iterator(j=ibar(0):ibar(1):ibar(2)) : a(ibar(j)), b(j), c(j))
  !$omp end task
  !$omp end parallel
! { dg-error "'a' not specified in enclosing 'parallel'" "" { target *-*-* } .-3 }
! { dg-error "'b' not specified in enclosing 'parallel'" "" { target *-*-* } .-4 }
! { dg-error "'c' not specified in enclosing 'parallel'" "" { target *-*-* } .-5 }
end