3 ! PR 43388: [F2008][OOP] ALLOCATE with MOLD=
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
11 type,extends(t1
) :: t2
15 class(t1
),allocatable
:: x
,y
19 !!! first example (static)
27 if (x
%j
/=4) call abort
34 !!! second example (dynamic, PR 44541)
41 if (y
%j
/=4) call abort