1! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp
2! REQUIRES: shell
3! OpenMP Version 4.5
4! 2.15.3.6 Reduction Clause
5
6program omp_reduction
7
8  integer :: i
9  integer :: k = 10
10  integer :: a(10),b(10,10,10)
11
12  !ERROR: 'a' in REDUCTION clause is a zero size array section
13  !$omp parallel do reduction(+:a(1:0:2))
14  do i = 1, 10
15    k = k + 1
16  end do
17  !$omp end parallel do
18
19  !ERROR: 'a' in REDUCTION clause is a zero size array section
20  !$omp parallel do reduction(+:a(1:0))
21  do i = 1, 10
22    k = k + 1
23  end do
24  !$omp end parallel do
25
26  !ERROR: 'b' in REDUCTION clause is a zero size array section
27  !$omp parallel do reduction(+:b(1:6,5,1:0))
28  do i = 1, 10
29    k = k + 1
30  end do
31  !$omp end parallel do
32
33  !ERROR: 'b' in REDUCTION clause is a zero size array section
34  !$omp parallel do reduction(+:b(1:6,1:0:5,1:10))
35  do i = 1, 10
36    k = k + 1
37  end do
38  !$omp end parallel do
39end program omp_reduction
40