Test suite results for test file webtbs/tw2268.pp

Test run data :

Test file "webtbs/tw2268.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941048.

Source:

{ Source provided for Free Pascal Bug Report 2268 }
{ Submitted by "marco" on  2002-12-19 }
{ e-mail: marco@freepascal.org }
{$ifdef fpc}{$mode TP}{$endif}

function P1:longint; begin end;
function P2:longint; begin end;
function P3:longint; begin end;
function Help:longint; begin end;

type Fn = function : longint ;
const PArr : array [0..3] of Fn = (Help, P1, P2, P3) ;

procedure bla(const i:longint); begin end;

begin
 bla(PArr[Paramcount]);
end.

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