Test suite results for test file webtbs/tw1856.pp

Test run data :

Test file "webtbs/tw1856.pp" information:

t_id 860
t_version 1.1
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1027256.

Source:

{ %version=1.1 }

{$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[1]:=TFlowItem.Create;

 { release }
 setlength(flow, 0);

 setlength(flow2, 10, 20);
 setlength(flow2, 0);

 writeln('no crash');
end.

Link to SVN view of webtbs/tw1856.pp source.