blob: dae91df1c3c85352c387e42a80b020b1bb776fb3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
! { 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
|
