26 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! OpenMP Version 4.54! 2.7.1 Loop Construct5! Semantic error for correct test case6 7program omp_do8 integer i, j, k9 integer :: a(10), b(10)10 a = 1011 j = 012 13 !$omp parallel14 !$omp do linear(j:1)15 do i = 1, 1016 j = j + 117 b(i) = a(i) * 2.018 end do19 !$omp end do20 !$omp end parallel21 22 print *, j23 print *, b24 25end program omp_do26