! { dg-do compile } | |
! | |
! PR 77596: [F03] procedure pointer component with implicit interface can point to a function | |
! | |
! Contributed by toK <t.kondic@leeds.ac.uk> | |
program xxx | |
implicit none | |
type tf | |
procedure(), nopass, pointer :: fp | |
end type tf | |
call ass() | |
contains | |
integer function ff(x) | |
integer, intent(in) :: x | |
ff = x + 1 | |
end function ff | |
subroutine ass() | |
type(tf) :: p | |
p%fp=>ff ! { dg-error "is not a subroutine" } | |
call p%fp(3) | |
end subroutine ass | |
end |