gcc/testsuite/gfortran.dg/gomp/lastprivate-conditional-3.f90

   1 subroutine foo
   2   integer i, j, k
   3   !$omp parallel
   4     !$omp do lastprivate (conditional: i)       ! { dg-warning "conditional 'lastprivate' on loop iterator 'i' ignored" }
   5     do i = 1, 32
   6     end do
   7     !$omp do collapse (3) lastprivate (conditional: i)  ! { dg-warning "conditional 'lastprivate' on loop iterator 'i' ignored" }
   8     do i = 1, 32
   9       do j = 1, 32
  10         do k = 1, 32
  11         end do
  12       end do
  13     end do
  14     !$omp do collapse (3) lastprivate (conditional: j)  ! { dg-warning "conditional 'lastprivate' on loop iterator 'j' ignored" }
  15     do i = 1, 32
  16       do j = 1, 32
  17         do k = 1, 32
  18         end do
  19       end do
  20     end do
  21     !$omp do collapse (3) lastprivate (conditional: k)  ! { dg-warning "conditional 'lastprivate' on loop iterator 'k' ignored" }
  22     do i = 1, 32
  23       do j = 1, 32
  24         do k = 1, 32
  25         end do
  26       end do
  27     end do
  28   !$omp end parallel
  29
  30   ! Error in eqiv. C code: "conditional 'lastprivate' on loop iterator 'i' ignored"
  31   !$omp parallel do lastprivate (conditional: i)
  32   do i = 1, 32
  33   end do
  34   !$omp end parallel do
  35
  36   ! Error in eqiv. C code: "conditional 'lastprivate' on loop iterator 'i' ignored"
  37   !$omp parallel do collapse (3) lastprivate (conditional: i)
  38   do i = 1, 32
  39     do j = 1, 32
  40       do k = 1, 32
  41       end do
  42     end do
  43   end do
  44   !$omp end parallel do
  45
  46   ! Error in eqiv. C code: "conditional 'lastprivate' on loop iterator 'j' ignored"
  47   !$omp parallel do collapse (3) lastprivate (conditional: j)
  48   do i = 1, 32
  49     do j = 1, 32
  50       do k = 1, 32
  51       end do
  52     end do
  53   end do
  54   !$omp end parallel do
  55
  56   ! Error in eqiv. C code: "conditional 'lastprivate' on loop iterator 'k' ignored"
  57   !$omp parallel do collapse (3) lastprivate (conditional: k)
  58   do i = 1, 32
  59     do j = 1, 32
  60       do k = 1, 32
  61       end do
  62     end do
  63   end do
  64   !$omp end parallel do
  65 end subroutine