gfortran and ifort can compile the following code, nvfortran 22.1 cannot.
! NVFORTRAN-S-0488-Subprogram call in DO CONCURRENT is not PURE - p (problem.f90: 7)
! 0 inform, 0 warnings, 1 severes, 0 fatal for problem
program pureProcedurePointerProblem
procedure(positive),pointer :: p
p=>positive
do n=0,1; print *,p(n); enddo ! no problem
do concurrent (n=0:1); print *,positive(n); enddo ! no problem
do concurrent (n=0:1); print *,p(n); enddo ! problem
contains
pure logical function positive(n)
integer,intent(in) :: n
positive=n>0
end function
end program