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