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 k = k * 3 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 j = j * 3 23 end do 24 !$omp end parallel do 25 26 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive 27 !$omp parallel do reduction(+:j), reduction(*:k), reduction(+:k) 28 do i = 1, 10 29 j = j + 1 30 k = k + 1 31 k = k * 3 32 end do 33 !$omp end parallel do 34 35 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive 36 !$omp parallel do reduction(+:j), reduction(*:k), private(k) 37 do i = 1, 10 38 j = j + 1 39 k = k + 1 40 k = k * 3 41 end do 42 !$omp end parallel do 43end program omp_reduction 44