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
89
90
|
!RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=45 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
!RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=45 %s | FileCheck --check-prefix="PARSE-TREE" %s
subroutine f00(x)
integer :: x(10, 10)
!$omp do ordered(2)
do i = 1, 10
do j = 1, 10
!$omp ordered depend(source)
x(i, j) = i + j
enddo
enddo
!$omp end do
end
!UNPARSE: SUBROUTINE f00 (x)
!UNPARSE: INTEGER x(10_4,10_4)
!UNPARSE: !$OMP DO ORDERED(2_4)
!UNPARSE: DO i=1_4,10_4
!UNPARSE: DO j=1_4,10_4
!UNPARSE: !$OMP ORDERED DEPEND(SOURCE)
!UNPARSE: x(int(i,kind=8),int(j,kind=8))=i+j
!UNPARSE: END DO
!UNPARSE: END DO
!UNPARSE: !$OMP END DO
!UNPARSE: END SUBROUTINE
!PARSE-TREE-LABEL: ProgramUnit -> SubroutineSubprogram
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE: | OmpLoopDirective -> llvm::omp::Directive = do
!PARSE-TREE: | OmpClauseList -> OmpClause -> Ordered -> Scalar -> Integer -> Constant -> Expr = '2_4'
!PARSE-TREE: | | LiteralConstant -> IntLiteralConstant = '2'
![...]
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPSimpleStandaloneConstruct
!PARSE-TREE: | OmpSimpleStandaloneDirective -> llvm::omp::Directive = ordered
!PARSE-TREE: | OmpClauseList -> OmpClause -> Depend -> OmpDependClause -> OmpDoacross -> Source
subroutine f01(x)
integer :: x(10, 10)
!$omp do ordered(2)
do i = 1, 10
do j = 1, 10
!$omp ordered depend(sink: i+1, j-2), depend(sink: i, j+3)
x(i, j) = i + j
enddo
enddo
!$omp end do
end
!UNPARSE: SUBROUTINE f01 (x)
!UNPARSE: INTEGER x(10_4,10_4)
!UNPARSE: !$OMP DO ORDERED(2_4)
!UNPARSE: DO i=1_4,10_4
!UNPARSE: DO j=1_4,10_4
!UNPARSE: !$OMP ORDERED DEPEND(SINK: i+1_4, j-2_4) DEPEND(SINK: i, j+3_4)
!UNPARSE: x(int(i,kind=8),int(j,kind=8))=i+j
!UNPARSE: END DO
!UNPARSE: END DO
!UNPARSE: !$OMP END DO
!UNPARSE: END SUBROUTINE
!PARSE-TREE-LABEL: ProgramUnit -> SubroutineSubprogram
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE: | OmpLoopDirective -> llvm::omp::Directive = do
!PARSE-TREE: | OmpClauseList -> OmpClause -> Ordered -> Scalar -> Integer -> Constant -> Expr = '2_4'
!PARSE-TREE: | | LiteralConstant -> IntLiteralConstant = '2'
![...]
!PARSE-TREE: ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPSimpleStandaloneConstruct
!PARSE-TREE: | OmpSimpleStandaloneDirective -> llvm::omp::Directive = ordered
!PARSE-TREE: | OmpClauseList -> OmpClause -> Depend -> OmpDependClause -> OmpDoacross -> Sink -> OmpIterationVector -> OmpIteration
!PARSE-TREE: | | Name = 'i'
!PARSE-TREE: | | OmpIterationOffset
!PARSE-TREE: | | | DefinedOperator -> IntrinsicOperator = Add
!PARSE-TREE: | | | Scalar -> Integer -> Constant -> Expr = '1_4'
!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '1'
!PARSE-TREE: | OmpIteration
!PARSE-TREE: | | Name = 'j'
!PARSE-TREE: | | OmpIterationOffset
!PARSE-TREE: | | | DefinedOperator -> IntrinsicOperator = Subtract
!PARSE-TREE: | | | Scalar -> Integer -> Constant -> Expr = '2_4'
!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '2'
!PARSE-TREE: | OmpClause -> Depend -> OmpDependClause -> OmpDoacross -> Sink -> OmpIterationVector -> OmpIteration
!PARSE-TREE: | | Name = 'i'
!PARSE-TREE: | OmpIteration
!PARSE-TREE: | | Name = 'j'
!PARSE-TREE: | | OmpIterationOffset
!PARSE-TREE: | | | DefinedOperator -> IntrinsicOperator = Add
!PARSE-TREE: | | | Scalar -> Integer -> Constant -> Expr = '3_4'
!PARSE-TREE: | | | | LiteralConstant -> IntLiteralConstant = '3'
|
