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 proc_bind (close)
  13 !$omp parallel default(none) proc_bind (spread) firstprivate(a) private (i)
  14   do i = 1, 10
  15     a(i, i) = i
  16   enddo
  17 !$omp end parallel
  18 !$omp endparallel
  19 end