! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp ! OpenMP Version 4.5 ! 2.15.3.6 Reduction Clause program omp_reduction integer :: i integer :: k = 10 integer :: a(10), b(10,10,10) !ERROR: A list item that appears in a REDUCTION clause should have a contiguous storage array section. !$omp parallel do reduction(+:a(1:10:3)) do i = 1, 10 k = k + 1 end do !$omp end parallel do !ERROR: A list item that appears in a REDUCTION clause should have a contiguous storage array section. !$omp parallel do reduction(+:b(1:10:3,1:8:1,1:5:1)) do i = 1, 10 k = k + 1 end do !$omp end parallel do !ERROR: A list item that appears in a REDUCTION clause should have a contiguous storage array section. !$omp parallel do reduction(+:b(1:10:1,1:8:2,1:5:1)) do i = 1, 10 k = k + 1 end do !$omp end parallel do end program omp_reduction