aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/goacc/kernels-loop-n.f95
blob: 7c56897a7273dc2b8608b0e8c9722234a782adb9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
! { dg-additional-options "-O2" }
! { dg-additional-options "-fdump-tree-parloops1-all" }
! { dg-additional-options "-fdump-tree-optimized" }

module test
contains
  subroutine foo(n)
    implicit none
    integer :: n
    integer, dimension (0:n-1) :: a, b, c
    integer                    :: i, ii
    do i = 0, n - 1
       a(i) = i * 2
    end do

    do i = 0, n -1
       b(i) = i * 4
    end do

    !$acc kernels copyin (a(0:n-1), b(0:n-1)) copyout (c(0:n-1)) 
    do ii = 0, n - 1
       c(ii) = a(ii) + b(ii)
    end do
    !$acc end kernels

    do i = 0, n - 1
       if (c(i) .ne. a(i) + b(i)) call abort
    end do

  end subroutine foo
end module test

! Check that only one loop is analyzed, and that it can be parallelized.
! { dg-final { scan-tree-dump-times "SUCCESS: may be parallelized" 1 "parloops1" } }
! This failure was introduced with the GOMP_MAP_POINTER ->
! GOMP_MAP_FIRSTPRIVATE_POINTER conversion.
! { dg-final { scan-tree-dump-times "(?n)__attribute__\\(\\(oacc kernels parallelized, oacc function \\(, , \\), oacc kernels, omp target entrypoint\\)\\)" 1 "parloops1" { xfail *-*-* } } }
! { dg-final { scan-tree-dump-not "FAILED:" "parloops1" } }

! Check that the loop has been split off into a function.
! { dg-final { scan-tree-dump-times "(?n);; Function __test_MOD_foo._omp_fn.0 " 1 "optimized" } }