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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
! RUN: %flang_fc1 -fopenacc -fdebug-unparse %s | FileCheck %s
! Test unparse does not crash with OpenACC directives.
! Test bug 47659
program bug47659
integer :: i, j
label1: do i = 1, 10
!$acc parallel loop
do j = 1, 10
if (j == 2) then
stop 1
end if
end do
end do label1
end program
!CHECK-LABEL: PROGRAM bug47659
!CHECK: !$ACC PARALLEL LOOP
subroutine acc_loop()
integer :: i, j
real :: a(10)
integer :: gangNum, gangDim, gangStatic
!CHECK-LABEL: SUBROUTINE acc_loop
!$acc loop collapse(force: 2)
do i = 1, 10
do j = 1, 10
end do
end do
!CHECK: !$ACC LOOP COLLAPSE(FORCE:2_4)
!$acc loop gang
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG
!$acc loop gang(gangNum)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(NUM:gangnum)
!$acc loop gang(num: gangNum)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(NUM:gangnum)
!$acc loop gang(dim: gangDim)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(DIM:gangdim)
!$acc loop gang(static:gangStatic)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(STATIC:gangstatic)
!$acc loop gang(static:*)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(STATIC:*)
!$acc loop gang(static:gangStatic, dim: gangDim)
do i = 1, 10
a(i) = i
end do
! CHECK: !$ACC LOOP GANG(STATIC:gangstatic,DIM:gangdim)
end subroutine
subroutine routine1()
!$acc routine bind("routine1_")
! CHECK: !$ACC ROUTINE BIND("routine1_")
end subroutine
subroutine routine2()
!$acc routine(routine2) bind(routine2)
! CHECK: !$ACC ROUTINE(routine2) BIND(routine2)
end subroutine
|
