blob: 4c4b3045f69c4573eb8ababe156ebcae3625b6b5 [file] [log] [blame]
! { dg-do compile }
!
function f()
intrinsic :: sin
procedure(sin), pointer :: f ! { dg-error "Procedure pointer 'f'" }
f => sin
end function f