1b3c72bcbSKiran Chandramohan! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 2b3c72bcbSKiran Chandramohan 3b3c72bcbSKiran Chandramohan! OpenMP 5.2: Section 5.5.5 : A procedure pointer must not appear in a 4b3c72bcbSKiran Chandramohan! reduction clause. 5b3c72bcbSKiran Chandramohan 6b3c72bcbSKiran Chandramohan procedure(foo), pointer :: ptr 7b3c72bcbSKiran Chandramohan integer :: i 8b3c72bcbSKiran Chandramohan ptr => foo 9*02db35a1SKrzysztof Parzyszek!ERROR: Procedure pointer 'ptr' may not appear in a REDUCTION clause 10b3c72bcbSKiran Chandramohan!$omp do reduction (+ : ptr) 11b3c72bcbSKiran Chandramohan do i = 1, 10 12b3c72bcbSKiran Chandramohan end do 13b3c72bcbSKiran Chandramohancontains 14b3c72bcbSKiran Chandramohan subroutine foo 15b3c72bcbSKiran Chandramohan end subroutine 16b3c72bcbSKiran Chandramohanend 17