! { dg-do compile } | |
! | |
! PR 56261: [OOP] seg fault call procedure pointer on polymorphic array | |
! | |
! Contributed by Andrew Benson <abensonca@gmail.com> | |
implicit none | |
type :: nc | |
end type | |
external :: qq | |
procedure( ), pointer :: f1 | |
procedure(ff), pointer :: f2 | |
f1 => ff ! { dg-error "Explicit interface required" } | |
f2 => qq ! { dg-error "Explicit interface required" } | |
contains | |
subroutine ff (self) | |
class(nc) :: self | |
end subroutine | |
end |