1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
2! OpenMP Version 4.5
3! 2.15.3.6 Reduction Clause
4program omp_reduction
5
6  integer :: i
7  integer :: k = 10
8  integer :: j = 10
9
10  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
11  !$omp parallel do reduction(+:k), reduction(-:k)
12  do i = 1, 10
13    k = k + 1
14  end do
15  !$omp end parallel do
16
17  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
18  !$omp parallel do reduction(+:k), reduction(-:j), reduction(+:k)
19  do i = 1, 10
20    k = k + 1
21  end do
22  !$omp end parallel do
23
24  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
25  !$omp parallel do reduction(+:j), reduction(-:k), reduction(+:k)
26  do i = 1, 10
27    k = k + 1
28  end do
29  !$omp end parallel do
30
31  !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive
32  !$omp parallel do reduction(+:j), reduction(-:k), private(k)
33  do i = 1, 10
34    k = k + 1
35  end do
36  !$omp end parallel do
37end program omp_reduction
38