forked from OSchip/llvm-project
19 lines
405 B
Fortran
19 lines
405 B
Fortran
|
! RUN: %S/test_errors.sh %s %t %f18 -fopenmp
|
||
|
|
! OpenMP Version 4.5
|
||
|
|
! 2.15.3.6 Reduction Clause
|
||
|
|
|
||
|
|
subroutine omp_target(p)
|
||
|
|
integer, pointer, intent(in) :: p
|
||
|
|
|
||
|
|
integer :: i
|
||
|
|
integer :: k = 10
|
||
|
|
|
||
|
|
!ERROR: Pointer 'p' with the INTENT(IN) attribute may not appear in a REDUCTION clause
|
||
|
|
!$omp parallel do reduction(+:p)
|
||
|
|
do i = 1, 10
|
||
|
|
k= k + 1
|
||
|
|
end do
|
||
|
|
!$omp end parallel do
|
||
|
|
|
||
|
|
end subroutine omp_target
|