! { dg-do compile } | |
! | |
! PR 46271: [F03] OpenMP default(none) and procedure pointers | |
! | |
! Contributed by Marco Restelli <mrestelli@gmail.com> | |
program test | |
implicit none | |
integer :: i | |
real :: s(1000) | |
procedure(f), pointer :: pf | |
pf => f | |
!$omp parallel do schedule(static) private(i) shared(s,pf) default(none) | |
do i=1,1000 | |
call pf(real(i),s(i)) | |
enddo | |
!$omp end parallel do | |
write(*,*) 'Sum ',sum(s) | |
contains | |
pure subroutine f(x,y) | |
real, intent(in) :: x | |
real, intent(out) :: y | |
y = sin(x)*cos(x) | |
end subroutine | |
end |