Test suite results for test file tbs/tb0321.pp

Test run data :

Test file "tbs/tb0321.pp" information:

t_id 541
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 948286.

Source:

{ this test program test allocation of large pieces of stack }
{ this is especially necessary for win32                     }

procedure p1(a : array of byte);

  var
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;

procedure p2;

  var
     a : array[0..20000] of byte;
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;

procedure p3;

  var
     a : array[0..200000] of byte;
     i : longint;

  begin
     for i:=0 to high(a) do
       a[i]:=0;
  end;


var
   a : array[0..10000] of byte;

begin
   p1(a);
   p2;
   p3;
end.

Link to SVN view of tbs/tb0321.pp source.