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 (works)
27 if (x
%j
/=4) call abort
33 !!! second example (fails)
34 !!! FIXME: uncomment once implemented (cf. PR 44541)
41 ! if (y%j/=4) call abort