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 integer :: i 6 integer :: k = 10 7 8 !ERROR: Invalid reduction operator in REDUCTION clause. 9 !$omp parallel do reduction(**:k) 10 do i = 1, 10 11 k = k ** 1 12 end do 13 !$omp end parallel do 14end program omp_reduction 15