gcc/testsuite/gfortran.dg/gomp/sharing-2.f90

   1   integer :: i, j, k, l
   2   integer, dimension (10, 10) :: a
   3 !$omp parallel do default (none) 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 default (none) shared (a) ! { dg-message "note: enclosing 'parallel'" }
  13   i = 1
  14   j = 1
  15   k = 1
  16   l = 1         ! { dg-error "not specified in" }
  17   do i = 1, 10
  18     a(i, 1) = 1
  19   end do
  20 !$omp critical
  21   do j = 1, 10
  22     a(1, j) = j
  23   end do
  24 !$omp end critical
  25 !$omp single
  26   do k = 1, 10
  27     a(k, k) = k
  28   end do
  29 !$omp end single
  30 !$omp end parallel
  31 !$omp parallel default (none) shared (a) ! { dg-message "note: enclosing 'parallel'" }
  32   i = 1         ! { dg-error "not specified in" }
  33   j = 1         ! { dg-error "not specified in" }
  34   k = 1         ! { dg-error "not specified in" }
  35 !$omp parallel default (none) shared (a)
  36   i = 1
  37   j = 1
  38   k = 1
  39   do i = 1, 10
  40     a(i, 1) = 1
  41   end do
  42 !$omp critical
  43   do j = 1, 10
  44     a(1, j) = j
  45   end do
  46 !$omp end critical
  47 !$omp single
  48   do k = 1, 10
  49     a(k, k) = k
  50   end do
  51 !$omp end single
  52 !$omp end parallel
  53   i = 1
  54   j = 1
  55   k = 1
  56 !$omp end parallel
  57 !$omp parallel default (none) shared (a) ! { dg-message "note: enclosing 'parallel'" }
  58   i = 1         ! { dg-error "not specified in" }
  59 !$omp do
  60   do i = 1, 10
  61     a(i, 1) = i + 1
  62   end do
  63 !$omp end parallel
  64 !$omp parallel default (none) shared (a) ! { dg-message "note: enclosing 'parallel'" }
  65   i = 1         ! { dg-error "not specified in" }
  66 !$omp parallel do default (none) shared (a)
  67   do i = 1, 10
  68     a(i, 1) = i + 1
  69   end do
  70 !$omp end parallel
  71 !$omp parallel default (none) shared (a) ! { dg-message "note: enclosing 'parallel'" }
  72   i = 1         ! { dg-error "not specified in" }
  73 !$omp parallel default (none) shared (a, i)
  74   i = 2
  75 !$omp parallel default (none) shared (a)
  76   do i = 1, 10
  77     a(i, 1) = i
  78   end do
  79 !$omp end parallel
  80   i = 3
  81 !$omp end parallel
  82   i = 4
  83 !$omp end parallel
  84 end