Test suite results for test file webtbs/tw3349.pp

Test run data :

Test file "webtbs/tw3349.pp" information:

t_id 1373
t_adddate 2004/10/12
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015618.

Source:

{ Source provided for Free Pascal Bug Report 3349 }
{ Submitted by "Martin Schreiber" on  2004-10-10 }
{ e-mail:  }
{$ifdef fpc}{$mode objfpc}{$H+}{$endif}

uses
  Classes,sysutils;
type
 integerarty = array of integer;
var
 count: integer;

function getvalue: integerarty;
begin
 writeln(inttostr(count)+' getvalue called');
 inc(count);
 result:= nil;
end;

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

begin
  //getvalue is called twice, once for length and once for data
  proc(getvalue);
  if count<>1 then
    halt(1);
end.

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