[WebAssembly] Fix asan issue from https://reviews.llvm.org/D121349
[llvm-project.git] / flang / test / Semantics / omp-no-dowhile-in-parallel.f90
blob2cab4a408279644b9b61dd2070a166af23a08650
1 ! RUN: %python %S/test_errors.py %s %flang -fopenmp
3 subroutine bug48308(x,i)
4 real :: x(:)
5 integer :: i
6 !$omp parallel firstprivate(i)
7 do while (i>0)
8 x(i) = i
9 i = i - 1
10 end do
11 !$omp end parallel
12 end subroutine
14 subroutine s1(x,i)
15 real :: x(:)
16 integer :: i
17 !$omp parallel firstprivate(i)
18 do i = 10, 1, -1
19 x(i) = i
20 end do
21 !$omp end parallel
23 !$omp parallel firstprivate(i)
24 do concurrent (i = 1:10:1)
25 x(i) = i
26 end do
27 !$omp end parallel
28 end subroutine