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
5program omp_reduction
6
7  integer :: i
8  integer :: k = 10
9  integer :: j = 10
10
11  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
12  !$omp parallel do reduction(+:k), reduction(-:k)
13  do i = 1, 10
14    k = k + 1
15  end do
16  !$omp end parallel do
17
18  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
19  !$omp parallel do reduction(+:k), reduction(-:j), reduction(+:k)
20  do i = 1, 10
21    k = k + 1
22  end do
23  !$omp end parallel do
24
25  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
26  !$omp parallel do reduction(+:j), reduction(-:k), reduction(+:k)
27  do i = 1, 10
28    k = k + 1
29  end do
30  !$omp end parallel do
31
32  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
33  !$omp parallel do reduction(+:j), reduction(-:k), private(k)
34  do i = 1, 10
35    k = k + 1
36  end do
37  !$omp end parallel do
38end program omp_reduction
39