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