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

   1   integer :: i, j
   2   integer, dimension (10, 10) :: a
   3 !$omp parallel do default(none)proc_bind(master)shared(a)
   4   do i = 1, 10
   5     j = 4
   6     do j = 1, 10
   7       a(i, j) = i + j
   8     end do
   9     j = 8
  10   end do
  11 !$omp end parallel do
  12 !$omp parallel do default(none)proc_bind(primary)shared(a)
  13   do i = 1, 10
  14     j = 4
  15     do j = 1, 10
  16       a(i, j) = i + j
  17     end do
  18     j = 8
  19   end do
  20 !$omp end parallel do
  21 !$omp parallel proc_bind (close)
  22 !$omp parallel default(none) proc_bind (spread) firstprivate(a) private (i)
  23   do i = 1, 10
  24     a(i, i) = i
  25   enddo
  26 !$omp end parallel
  27 !$omp endparallel
  28 end