44 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2! OpenMP Version 4.53! 2.15.3.6 Reduction Clause4program omp_reduction5 6 integer :: i7 integer :: k = 108 integer :: j = 109 10 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive11 !$omp parallel do reduction(+:k), reduction(*:k)12 do i = 1, 1013 k = k + 114 k = k * 315 end do16 !$omp end parallel do17 18 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive19 !$omp parallel do reduction(+:k), reduction(*:j), reduction(+:k)20 do i = 1, 1021 k = k + 122 j = j * 323 end do24 !$omp end parallel do25 26 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive27 !$omp parallel do reduction(+:j), reduction(*:k), reduction(+:k)28 do i = 1, 1029 j = j + 130 k = k + 131 k = k * 332 end do33 !$omp end parallel do34 35 !ERROR: 'k' appears in more than one data-sharing clause on the same OpenMP directive36 !$omp parallel do reduction(+:j), reduction(*:k), private(k)37 do i = 1, 1038 j = j + 139 k = k + 140 k = k * 341 end do42 !$omp end parallel do43end program omp_reduction44