24 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! OpenMP Version 4.54! 2.8.3 Loop simd Construct5! Semantic error for correct test case.6 7program omp_loop_simd8 integer i, j, k, l9 k = 0;10 l = 011 12 !$omp parallel do simd linear(l)13 do i = 1, 1014 do j = 1, 1015 print *, "omp loop simd"16 k = k + 117 l = l + 118 end do19 end do20 21 print *, k, l22 23end program omp_loop_simd24