29 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3subroutine bug48308(x,i)4 real :: x(:)5 integer :: i6 !$omp parallel firstprivate(i)7 do while (i>0)8 x(i) = i9 i = i - 110 end do11 !$omp end parallel12end subroutine13 14subroutine s1(x,i)15 real :: x(:)16 integer :: i17 !$omp parallel firstprivate(i)18 do i = 10, 1, -119 x(i) = i20 end do21 !$omp end parallel22 23 !$omp parallel firstprivate(i)24 do concurrent (i = 1:10:1)25 x(i) = i26 end do27 !$omp end parallel28end subroutine29