libgomp/testsuite/libgomp.oacc-fortran/kernels-collapse-4.f90

   1 ! Test the collapse and reduction loop clauses inside a kernels region.
   2
   3 ! { dg-do run }
   4
   5 program collapse4
   6   integer :: i, j, k, a(1:7, -3:5, 12:19), b(1:7, -3:5, 12:19)
   7   logical :: l, r
   8   l = .false.
   9   r = .false.
  10   a(:, :, :) = 0
  11   b(:, :, :) = 0
  12   !$acc kernels
  13   !$acc loop collapse (3) reduction (.or.:l)
  14     do i = 2, 6
  15       do j = -2, 4
  16         do k = 13, 18
  17           l = l.or.i.lt.2.or.i.gt.6.or.j.lt.-2.or.j.gt.4
  18           l = l.or.k.lt.13.or.k.gt.18
  19           if (.not.l) a(i, j, k) = a(i, j, k) + 1
  20         end do
  21       end do
  22     end do
  23   !$acc end kernels
  24   do i = 2, 6
  25     do j = -2, 4
  26       do k = 13, 18
  27         r = r.or.i.lt.2.or.i.gt.6.or.j.lt.-2.or.j.gt.4
  28         r = r.or.k.lt.13.or.k.gt.18
  29         if (.not.l) b(i, j, k) = b(i, j, k) + 1
  30       end do
  31     end do
  32   end do
  33   if (l .neqv. r) call abort
  34   do i = 2, 6
  35     do j = -2, 4
  36       do k = 13, 18
  37          if (a(i, j, k) .ne. b(i, j, k)) call abort
  38       end do
  39     end do
  40   end do
  41 end program collapse4