gcc/testsuite/gfortran.dg/goacc/private-2.f95

   1 ! { dg-do compile }
   2
   3 ! test for implicit private clauses in do loops
   4
   5 program test
   6   implicit none
   7   integer :: i, j, k, a(10)
   8
   9   !$acc parallel
  10   !$acc loop
  11   do i = 1, 100
  12   end do
  13   !$acc end parallel
  14
  15   !$acc parallel
  16   !$acc loop
  17   do i = 1, 100
  18      do j = 1, 100
  19      end do
  20   end do
  21   !$acc end parallel
  22
  23   !$acc data copy(a)
  24
  25   if(mod(1,10) .eq. 0) write(*,'(i5)') i
  26
  27   do i = 1, 100
  28     !$acc parallel
  29     !$acc loop
  30      do j = 1, 100
  31         do k = 1, 100
  32         end do
  33      end do
  34     !$acc end parallel
  35   end do
  36
  37   !$acc end data
  38
  39 end program test