Test suite results for test file webtbs/tw3348.pp

Test run data :

Test file "webtbs/tw3348.pp" information:

t_id 1382
t_adddate 2004/10/26
t_result 0
t_knownrunerror 0
t_opts -ghcl

Detailed test run results:

Record count: 1

Log of 873379:

Heap dump by heaptrc unit of /boot/home/pas/gitlab-fpc-source-fixes/tests/output/i386-haiku/webtbs/chunk000020014webtbs/tw3348
23 memory blocks allocated : 565/608
22 memory blocks freed     : 553/592
1 unfreed memory blocks : 12
True heap size : 98304
True free heap : 98176
Should be : 98192
Call trace for block $0010C080 size 12
An unhandled exception occurred at $009F39BF:
EAccessViolation: 
  $009F39BF
  $009F0D17
  $009F1AD7

Source:

{ %opt=-ghcl }

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

{$mode objfpc}{$H+}
// compile with -gh -gc -gl
uses
  Classes;
type
 integerarty = array of integer;

procedure proc(ar: array of integer);
begin
end;

var
 ar1: integerarty;
begin
 ar1:= nil;
 proc(ar1); // checkpointer error (nil!)
end.

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