17 lines
386 B
Fortran
17 lines
386 B
Fortran
! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
|
|
|
|
! OpenMP 5.2: Section 5.5.5 : A procedure pointer must not appear in a
|
|
! reduction clause.
|
|
|
|
procedure(foo), pointer :: ptr
|
|
integer :: i
|
|
ptr => foo
|
|
!ERROR: A procedure pointer 'ptr' must not appear in a REDUCTION clause.
|
|
!$omp do reduction (+ : ptr)
|
|
do i = 1, 10
|
|
end do
|
|
contains
|
|
subroutine foo
|
|
end subroutine
|
|
end
|