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
42
43
44
45
46
47
48
|
! { dg-do compile }
! { dg-additional-options "-fdump-tree-original -std=f2008" }
! test for tree-dump-original and spaces-commas
program test
implicit none
integer :: i, j, k, m, sum
REAL :: a(64), b(64), c(64)
!$acc kernels
!$acc loop collapse(2)
DO i = 1,10
DO j = 1,10
ENDDO
ENDDO
!$acc loop independent gang (3)
DO i = 1,10
!$acc loop worker(3) ! { dg-error "work-sharing region may not be closely nested inside of work-sharing, critical, ordered, master or explicit task region" }
DO j = 1,10
!$acc loop vector(5)
DO k = 1,10
ENDDO
ENDDO
ENDDO
!$acc end kernels
sum = 0
!$acc parallel
!$acc loop private(m) reduction(+:sum)
DO i = 1,10
sum = sum + 1
ENDDO
!$acc end parallel
end program test
! { dg-final { scan-tree-dump-times "pragma acc loop" 5 "original" } }
! { dg-final { scan-tree-dump-times "collapse\\(2\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "independent" 1 "original" } }
! { dg-final { scan-tree-dump-times "gang\\(num: 3\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "worker\\(3\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "vector\\(5\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "private\\(m\\)" 1 "original" } }
! { dg-final { scan-tree-dump-times "reduction\\(\\+:sum\\)" 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } }
|
