https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80046
janus at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |accepts-invalid
Known to work|4.8.5 |
Summary|[5/6/7 Regression] Explicit |Explicit interface
|interface required for at |required: pointer argument
|(1): pointer argument |
--- Comment #3 from janus at gcc dot gnu.org ---
(In reply to janus from comment #2)
> The only 'bug' is that gfortran does not reject the first one as well.
( ... therefore it's not a regression.)
Here is a slightly reduced test for that case, based on the original example:
program p
implicit none
type :: Node_t
procedure(), nopass, pointer :: cloneProc
end type
interface
subroutine NodeCloner( tgt, src )
import Node_t
type(Node_t), pointer, intent(out) :: tgt
type(Node_t), intent(in) :: src
end subroutine
end interface
type(Node_t) :: node
procedure(NodeCloner), pointer :: cloneNode
cloneNode => node%cloneProc
end
