1! RUN: %S/test_errors.sh %s %t %flang -fopenmp
2! REQUIRES: shell
3
4! OpenMP Version 4.5
5! 2.7.1 Loop Construct
6! Semantic error for correct test case
7
8program omp_do
9  integer i, j, k
10  integer :: a(10), b(10)
11  a = 10
12  j = 0
13
14  !$omp parallel
15    !$omp do linear(j:1)
16    do i = 1, 10
17      j = j + 1
18      b(i) = a(i) * 2.0
19    end do
20    !$omp end do
21  !$omp end parallel
22
23  print *, j
24  print *, b
25
26end program omp_do
27