3 ! PR 44936: [OOP] Generic TBP not resolved correctly at compile time
5 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
11 procedure, pass(a) :: doit => doit1
12 procedure, pass(a) :: getit=> getit1
13 generic, public :: do => doit
14 generic, public :: get => getit
21 write(*,*) 'FOO%DOIT base version'
23 function getit1(a) result(res)
32 type, extends(foo) :: foo2
35 procedure, pass(a) :: doit => doit2
36 procedure, pass(a) :: getit => getit2
45 function getit2(a) result(res)
57 if (af2%i .ne. 2) STOP 1
58 if (af2%get() .ne. 3) STOP 2