4 ! Test that the finalization wrapper procedure get the always_explicit
5 ! attribute so that the array is not passed without descriptor from
6 ! T3's finalization wrapper procedure to T2's one.
8 ! Contributed by Mat Cross <mathewc@nag.co.uk>
13 Integer, Allocatable
:: i
16 Integer, Allocatable
:: i
18 Type, Extends (t1
) :: t3
21 Type, Extends (t3
) :: t4
22 Integer, Allocatable
:: k
28 Class (t1
), Allocatable
:: x