Test suite results for test file webtbs/tw3334.pp

Test run data :

Test file "webtbs/tw3334.pp" information:

t_id 1387
t_adddate 2004/11/01
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940816.

Source:

{ Source provided for Free Pascal Bug Report 3334 }
{ Submitted by "Martin Schreiber" on  2004-09-28 }
{ e-mail:  }
program project1;

{$mode objfpc}{$H+}

uses
  Classes;

procedure p1;  
type
 integerarty = array of integer;
var
 ar1,ar2: integerarty;
begin
 setlength(ar1,4);
 ar2:= copy(ar1,1,2);
end;

var
 mem1,mem2 : longint;
begin
  mem1:=heapsize-memavail;
  p1;
  mem2:=heapsize-memavail;
  writeln(mem1,' - ',mem2);
  if mem1<>mem2 then
    halt(1);
end.

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