flang/test/Semantics/OpenMP/no-dowhile-in-parallel.f90

   1 ! RUN: %python %S/../test_errors.py %s %flang -fopenmp
   2
   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
  13
  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
  22
  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