1! RUN: %S/test_errors.sh %s %t %flang -fopenmp
2! REQUIRES: shell
3
4subroutine bug48308(x,i)
5  real :: x(:)
6  integer :: i
7  !$omp parallel firstprivate(i)
8    do while (i>0)
9      x(i) = i
10      i = i - 1
11    end do
12  !$omp end parallel
13end subroutine
14
15subroutine s1(x,i)
16  real :: x(:)
17  integer :: i
18  !$omp parallel firstprivate(i)
19    do i = 10, 1, -1
20      x(i) = i
21    end do
22  !$omp end parallel
23
24  !$omp parallel firstprivate(i)
25    do concurrent (i = 1:10:1)
26      x(i) = i
27    end do
28  !$omp end parallel
29end subroutine
30