File tree Expand file tree Collapse file tree 2 files changed +13
-1
lines changed
flang/test/Semantics/OpenMP Expand file tree Collapse file tree 2 files changed +13
-1
lines changed Original file line number Diff line number Diff line change @@ -30,5 +30,11 @@ program omp_doCollapse
3030 do
3131 end do
3232 end do
33- end program omp_doCollapse
3433
34+ ! ERROR: At most one COLLAPSE clause can appear on the SIMD directive
35+ ! $omp simd collapse(2) collapse(1)
36+ do i = 1 , 4
37+ j = j + i + 1
38+ end do
39+ ! $omp end simd
40+ end program omp_doCollapse
Original file line number Diff line number Diff line change 131131 ! $omp end parallel do simd
132132 ! ERROR: The END PARALLEL DO SIMD directive must follow the DO loop associated with the loop construct
133133 ! $omp end parallel do simd
134+
135+ ! ERROR: A DO loop must follow the SIMD directive
136+ ! $omp simd
137+ a = i + 1
138+ ! ERROR: The END SIMD directive must follow the DO loop associated with the loop construct
139+ ! $omp end simd
134140end
You can’t perform that action at this time.
0 commit comments