3 ! PR 47180: [OOP] EXTENDS_TYPE_OF returns the wrong result for disassociated polymorphic pointers
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
13 type, extends(t1):: t11
17 type(t1) , target :: a1
18 type(t11) , target :: a11
19 class(t1) , pointer :: b1
20 class(t11), pointer :: b11
25 if (.not. extends_type_of(b1 , a1)) call abort()
26 if (.not. extends_type_of(b11, a1)) call abort()
27 if (.not. extends_type_of(b11,a11)) call abort()
32 if (.not. extends_type_of(b1 , a1)) call abort()
33 if (.not. extends_type_of(b11, a1)) call abort()
34 if (.not. extends_type_of(b11,a11)) call abort()