2 ! PR62125 Nested select type not accepted (rejects valid)
8 type, extends(t1
), abstract
:: t2
11 type, extends(t2
) :: t3
16 class(t1
), intent(in
) :: u
18 select
type(u
); class
is(t2
)
20 select
type(u
); class
is(t3
)
30 type(t3
) :: var
= t3( l
=.true
. , i
=2 , x
=3.5 )