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