fpc/tests/webtbs/tw1856.pp
2024-10-31 22:35:04 +01:00

31 lines
434 B
ObjectPascal

{$ifdef fpc}
{$mode objfpc}
{$endif}
type
TFlowItem = class
text: string; //replace with "shortstring" and the crash goes away
end;
TFlow = array of TFlowItem;
TFlow2 = array of array of TFlowItem;
var
flow: tflow;
flow2 : TFLow2;
begin
setlength(flow, 10);
setlength(flow, 1);
flow[0]:=TFlowItem.Create;
{ release }
setlength(flow, 0);
setlength(flow2, 10, 20);
setlength(flow2, 0);
writeln('no crash');
end.