32 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.3.6 Reduction Clause4 5program omp_reduction6 7 integer :: i8 integer :: k = 109 integer :: a(10), b(10,10,10)10 11 !ERROR: Reference to 'a' must be a contiguous object12 !$omp parallel do reduction(+:a(1:10:3))13 do i = 1, 1014 k = k + 115 end do16 !$omp end parallel do17 18 !ERROR: Reference to 'b' must be a contiguous object19 !$omp parallel do reduction(+:b(1:10:3,1:8:1,1:5:1))20 do i = 1, 1021 k = k + 122 end do23 !$omp end parallel do24 25 !ERROR: Reference to 'b' must be a contiguous object26 !$omp parallel do reduction(+:b(1:10:1,1:8:2,1:5:1))27 do i = 1, 1028 k = k + 129 end do30 !$omp end parallel do31end program omp_reduction32