3 ! [OOP] Ensure that different specifc interfaces are
4 ! handled properly by dynamic dispatch.
6 ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it>
30 integer function b(ct,x)
40 class(t), allocatable :: o1
42 class(t2), allocatable :: o2
47 if (t1%gen(2.0) .ne. o1%gen(2.0)) call abort
48 if (t1%gen(2.0) .ne. o2%gen(2.0)) call abort
49 if (o2%gen(3) .ne. 9) call abort