18 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp2 3! OpenMP Version 5.04! 2.10.3 taskloop simd Construct5 6program omp_taskloop_simd7 integer i , j , k8 9 !$omp taskloop simd reduction(+:k)10 do i=1,1000011 do j=1,i12 k = k + 113 end do14 end do15 !$omp end taskloop simd16 17end program omp_taskloop_simd18