! { dg-do compile } | |
! | |
! PR 46060: [F03] procedure pointer component referenced without argument list | |
! | |
! Contributed by Stephen J. Bespalko <sjbespa@comcast.net> | |
implicit none | |
abstract interface | |
function name_func (ivar) result (res) | |
integer, intent(in) :: ivar | |
character(len=8) :: res | |
end function name_func | |
end interface | |
type var_type | |
procedure(name_func), nopass, pointer :: name | |
end type var_type | |
type(var_type) :: vars | |
character(len=8) name | |
name = vars%name ! { dg-error "requires an argument list" } | |
end |