blob: e282fc1832d3d454d3e3a17e68693f8a6ba5bab1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
! { dg-do compile }
!
! PR 64508: [F03] interface check missing for procedure pointer component as actual argument
!
! Contributed by Janus Weil <janus@gcc.gnu.org>
TYPE :: parent
END TYPE
TYPE, EXTENDS(parent) :: extension
procedure(extension_proc), pointer :: ppc
END TYPE
CLASS(extension), ALLOCATABLE :: x
CALL some_proc(x%ppc) ! { dg-error "Interface mismatch in dummy procedure" }
contains
SUBROUTINE parent_proc(arg)
CLASS(parent), INTENT(IN) :: arg
END SUBROUTINE
SUBROUTINE extension_proc(arg)
CLASS(extension), INTENT(IN) :: arg
END SUBROUTINE
SUBROUTINE some_proc(proc)
PROCEDURE(parent_proc) :: proc
TYPE(Parent) :: a
CALL proc(a)
END SUBROUTINE
end
|
