1! { dg-do compile }
2!
3! PR 56261: [OOP] seg fault call procedure pointer on polymorphic array
4!
5! Contributed by Andrew Benson <abensonca@gmail.com>
6
7  implicit none
8  type :: nc
9  end type
10  external :: qq
11  procedure(  ), pointer :: f1
12  procedure(ff), pointer :: f2
13
14  f1 => ff  ! { dg-error "Explicit interface required" }
15  f2 => qq  ! { dg-error "Explicit interface required" }
16
17contains
18
19  subroutine ff (self)
20    class(nc) :: self
21  end subroutine
22
23end
24