gcc/testsuite/gfortran.dg/gomp/affinity-1.f90

  integer :: i, j
  integer, dimension (10, 10) :: a
!$omp parallel do default(none)proc_bind(master)shared(a)
  do i = 1, 10
    j = 4
    do j = 1, 10
      a(i, j) = i + j
    end do
    j = 8
  end do
!$omp end parallel do
!$omp parallel do default(none)proc_bind(primary)shared(a)
  do i = 1, 10
    j = 4
    do j = 1, 10
      a(i, j) = i + j
    end do
    j = 8
  end do
!$omp end parallel do
!$omp parallel proc_bind (close)
!$omp parallel default(none) proc_bind (spread) firstprivate(a) private (i)
  do i = 1, 10
    a(i, i) = i
  enddo
!$omp end parallel
!$omp endparallel
end