| ! RUN: %S/test_errors.sh %s %t %flang_fc1 -fopenmp |
| ! REQUIRES: shell |
| ! OpenMP Version 4.5 |
| ! 2.15.3.6 Reduction Clause |
| program omp_Reduction |
| integer :: i |
| integer, parameter :: k = 10 |
| common /c/ a, b |
| |
| !ERROR: Variable 'k' on the REDUCTION clause is not definable |
| !$omp parallel do reduction(+:k) |
| do i = 1, 10 |
| l = k + 1 |
| end do |
| !$omp end parallel do |
| |
| !ERROR: Variable 'c' on the REDUCTION clause is not definable |
| !$omp parallel do reduction(-:/c/) |
| do i = 1, 10 |
| l = k + 1 |
| end do |
| !$omp end parallel do |
| end program omp_Reduction |
