3 ! Check pr57117 is fixed.
12 class(ti
), allocatable
:: x(:,:), y(:,:)
18 x
%i
= reshape([(i
,i
=1, 12)],[2,6])
20 allocate(y
, source
=transpose(x
))
22 if (any( ubound(y
) /= [6,2])) call abort()
23 if (any(reshape(y(:,:)%i
, [12]) /= [ 1,3,5,7,9,11, 2,4,6,8,10,12])) call abort()