39 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: 'a' in REDUCTION clause is a zero size array section12 !$omp parallel do reduction(+:a(1:0:2))13 do i = 1, 1014 k = k + 115 end do16 !$omp end parallel do17 18 !ERROR: 'a' in REDUCTION clause is a zero size array section19 !$omp parallel do reduction(+:a(1:0))20 do i = 1, 1021 k = k + 122 end do23 !$omp end parallel do24 25 !ERROR: 'b' in REDUCTION clause is a zero size array section26 !$omp parallel do reduction(+:b(1:6,5,1:0))27 do i = 1, 1028 k = k + 129 end do30 !$omp end parallel do31 32 !ERROR: 'b' in REDUCTION clause is a zero size array section33 !$omp parallel do reduction(+:b(1:6,1:0:5,1:10))34 do i = 1, 1035 k = k + 136 end do37 !$omp end parallel do38end program omp_reduction39