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

   1 ! Test the collapse clause inside a kernels region.
   2
   3 ! { dg-do run }
   4
   5 program collapse3
   6   integer :: a(3,3,3), k, kk, kkk, l, ll, lll
   7   !$acc kernels
   8   !$acc loop collapse(3)
   9     do 115 k=1,3
  10 dokk: do kk=1,3
  11         do kkk=1,3
  12           a(k,kk,kkk) = 1
  13         enddo
  14       enddo dokk
  15 115   continue
  16   !$acc end kernels
  17   if (any(a(1:3,1:3,1:3).ne.1)) call abort
  18
  19   !$acc kernels
  20   !$acc loop collapse(3)
  21 dol: do 120 l=1,3
  22 doll: do ll=1,3
  23         do lll=1,3
  24           a(l,ll,lll) = 2
  25         enddo
  26       enddo doll
  27 120 end do dol
  28   !$acc end kernels
  29   if (any(a(1:3,1:3,1:3).ne.2)) call abort
  30 end program collapse3