24 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 integer :: i6 integer, parameter :: k = 107 common /c/ a, b8 9 !ERROR: Variable 'k' on the REDUCTION clause is not definable10 !BECAUSE: 'k' is not a variable11 !$omp parallel do reduction(+:k)12 do i = 1, 1013 l = k + 114 end do15 !$omp end parallel do16 17 !ERROR: Common block names are not allowed in REDUCTION clause18 !$omp parallel do reduction(*:/c/)19 do i = 1, 1020 l = k + 121 end do22 !$omp end parallel do23end program omp_Reduction24