1! RUN: %python %S/../test_errors.py %s %flang -fopenmp 2 3! OpenMP Version 4.5 4! 2.8.3 Loop simd Construct 5! Semantic error for correct test case. 6 7program omp_loop_simd 8 integer i, j, k, l 9 k = 0; 10 l = 0 11 12 !$omp parallel do simd linear(l) 13 do i = 1, 10 14 do j = 1, 10 15 print *, "omp loop simd" 16 k = k + 1 17 l = l + 1 18 end do 19 end do 20 21 print *, k, l 22 23end program omp_loop_simd 24