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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
! RUN: %python %S/../test_errors.py %s %flang -fopenmp
! Check the association between OpenMPLoopConstruct and DoConstruct
integer :: b = 128
integer :: c = 32
integer, parameter :: num = 16
N = 1024
! Different DO loops
!$omp parallel
!$omp do
do 10 i=1, N
a = 3.14
10 print *, a
!$omp end parallel
!$omp parallel do
DO CONCURRENT (i = 1:N)
a = 3.14
END DO
!$omp parallel do simd
outer: DO WHILE (c > 1)
inner: do while (b > 100)
a = 3.14
b = b - 1
enddo inner
c = c - 1
END DO outer
! Accept directives between parallel do and actual loop.
!$OMP PARALLEL DO
!DIR$ VECTOR ALIGNED
DO 20 i=1,N
a = a + 0.5
20 CONTINUE
!$OMP END PARALLEL DO
c = 16
!ERROR: DO loop after the PARALLEL DO directive must have loop control
!$omp parallel do
do
a = 3.14
c = c - 1
if (c < 1) exit
enddo
! Loop association check
! If an end do directive follows a do-construct in which several DO
! statements share a DO termination statement, then a do directive
! can only be specified for the outermost of these DO statements.
do 100 i=1, N
!$omp do
do 100 j=1, N
a = 3.14
100 continue
!ERROR: The ENDDO directive must follow the DO loop associated with the loop construct
!$omp enddo
!$omp parallel do copyin(a)
do i = 1, N
!$omp parallel do
do j = 1, i
enddo
!$omp end parallel do
a = 3.
enddo
!$omp end parallel do
!$omp parallel do
do i = 1, N
enddo
!$omp end parallel do
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
!$omp parallel
a = 3.0
!$omp do simd
do i = 1, N
enddo
!$omp end do simd
!$omp parallel do copyin(a)
do i = 1, N
enddo
!$omp end parallel
a = 0.0
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
!$omp parallel do private(c)
do i = 1, N
do j = 1, N
!ERROR: A DO loop must follow the PARALLEL DO directive
!$omp parallel do shared(b)
a = 3.14
enddo
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
enddo
a = 1.414
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
do i = 1, N
!$omp parallel do
do j = 2*i*N, (2*i+1)*N
a = 3.14
enddo
enddo
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
!ERROR: A DO loop must follow the PARALLEL DO directive
!$omp parallel do private(c)
5 FORMAT (1PE12.4, I10)
do i=1, N
a = 3.14
enddo
!ERROR: The END PARALLEL DO directive must follow the DO loop associated with the loop construct
!$omp end parallel do
!$omp parallel do simd
do i = 1, N
a = 3.14
enddo
!$omp end parallel do simd
!ERROR: The END PARALLEL DO SIMD directive must follow the DO loop associated with the loop construct
!$omp end parallel do simd
!ERROR: A DO loop must follow the SIMD directive
!$omp simd
a = i + 1
!ERROR: The END SIMD directive must follow the DO loop associated with the loop construct
!$omp end simd
end
|
