! { dg-do run } ! Test the fix for PR43945 in which the over-ridding of 'doit' and ! 'getit' in type 'foo2' was missed in the specific binding to 'do' and 'get'. ! ! Contributed by Tobias Burnus ! and reported to clf by Salvatore Filippone ! module foo_mod type foo integer :: i contains procedure, pass(a) :: doit procedure, pass(a) :: getit generic, public :: do => doit generic, public :: get => getit end type foo private doit,getit contains subroutine doit(a) class(foo) :: a a%i = 1 write(*,*) 'FOO%DOIT base version' end subroutine doit function getit(a) result(res) class(foo) :: a integer :: res res = a%i end function getit end module foo_mod module foo2_mod use foo_mod type, extends(foo) :: foo2 integer :: j contains procedure, pass(a) :: doit => doit2 procedure, pass(a) :: getit => getit2 !!$ generic, public :: do => doit !!$ generic, public :: get => getit end type foo2 private doit2, getit2 contains subroutine doit2(a) class(foo2) :: a a%i = 2 a%j = 3 end subroutine doit2 function getit2(a) result(res) class(foo2) :: a integer :: res res = a%j end function getit2 end module foo2_mod program testd15 use foo2_mod type(foo2) :: af2 call af2%do() if (af2%i .ne. 2) call abort if (af2%get() .ne. 3) call abort end program testd15