blob: 929fb0e81e996f6e7fc8870d7d17646e8f5fcf23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
! { dg-do compile }
! { dg-additional-options "-fdump-tree-gimple" }
subroutine foo ()
implicit none
integer :: p,k
integer :: a
!$acc parallel loop reduction(+:a)
do p = 1,5
enddo
!$acc end parallel loop
!$acc kernels loop reduction(+:a)
do k = 2,6
enddo
!$acc end kernels loop
end subroutine
! { dg-final { scan-tree-dump-times "target oacc_parallel firstprivate.a." 1 "gimple" } }
! { dg-final { scan-tree-dump-times "acc loop private.p. reduction..:a." 1 "gimple" } }
! { dg-final { scan-tree-dump-times "target oacc_kernels map.force_tofrom:a .len: 4.." 1 "gimple" } }
! { dg-final { scan-tree-dump-times "acc loop private.k. reduction..:a." 1 "gimple" } }
|