gcc/testsuite/gfortran.dg/goacc/kernels-parallel-loop-data-enter-exit.f95

   1 ! { dg-additional-options "-O2" }
   2 ! { dg-additional-options "-fdump-tree-parloops1-all" }
   3 ! { dg-additional-options "-fdump-tree-optimized" }
   4
   5 program main
   6   implicit none
   7   integer, parameter         :: n = 1024
   8   integer, dimension (0:n-1) :: a, b, c
   9   integer                    :: i, ii
  10
  11   !$acc enter data create (a(0:n-1), b(0:n-1), c(0:n-1))
  12
  13   !$acc kernels present (a(0:n-1))
  14   do i = 0, n - 1
  15      a(i) = i * 2
  16   end do
  17   !$acc end kernels
  18
  19   !$acc parallel present (b(0:n-1))
  20   !$acc loop
  21   do i = 0, n -1
  22      b(i) = i * 4
  23   end do
  24   !$acc end parallel
  25
  26   !$acc kernels present (a(0:n-1), b(0:n-1), c(0:n-1))
  27   do ii = 0, n - 1
  28      c(ii) = a(ii) + b(ii)
  29   end do
  30   !$acc end kernels
  31
  32   !$acc exit data copyout (a(0:n-1), b(0:n-1), c(0:n-1))
  33
  34   do i = 0, n - 1
  35      if (c(i) .ne. a(i) + b(i)) call abort
  36   end do
  37
  38 end program main
  39
  40 ! Check that only three loops are analyzed, and that all can be parallelized.
  41 ! { dg-final { scan-tree-dump-times "SUCCESS: may be parallelized" 2 "parloops1" { xfail *-*-* } } }
  42 ! { dg-final { scan-tree-dump-times "(?n)__attribute__\\(\\(oacc kernels parallelized, oacc function \\(, , \\), oacc kernels, omp target entrypoint\\)\\)" 2 "parloops1" { xfail *-*-* } } }
  43 ! { dg-final { scan-tree-dump-not "FAILED:" "parloops1" { xfail *-*-* } } }
  44
  45 ! Check that the loop has been split off into a function.
  46 ! { dg-final { scan-tree-dump-times "(?n);; Function MAIN__._omp_fn.0 " 1 "optimized" } }
  47 ! { dg-final { scan-tree-dump-times "(?n);; Function MAIN__._omp_fn.1 " 1 "optimized" } }
  48 ! { dg-final { scan-tree-dump-times "(?n);; Function MAIN__._omp_fn.2 " 1 "optimized" } }