17 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp2 3! OpenMP 5.2: Section 5.5.5 : A procedure pointer must not appear in a4! reduction clause.5 6 procedure(foo), pointer :: ptr7 integer :: i8 ptr => foo9!ERROR: Procedure pointer 'ptr' may not appear in a REDUCTION clause10!$omp do reduction (+ : ptr)11 do i = 1, 1012 end do13contains14 subroutine foo15 end subroutine16end17