Test suite results for test file webtbs/tw1408.pp

Test run data :

Test file "webtbs/tw1408.pp" information:

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

Detailed test run results:

Record count: 1

No log of 941048.

Source:

{$mode delphi}
program test;

type
	booleanVoidFun = function : boolean;
	boolean1IntFun = function(i : integer) : boolean;

var
	af : array[1..10] of booleanVoidFun;
	ag : array[1..10] of boolean1IntFun;

	b : boolean;
	i : integer;

function alwaysTrue : boolean;
begin
	alwaysTrue := true;
end;

function maybeTrue(q : integer) : boolean;
begin
	maybeTrue := (q = 0);
end;

begin
	for i := 1 to 10 do begin
		af[i] := alwaysTrue;
		ag[i] := maybeTrue;
	end;

	b := af[1]; { can be fixed by using b := af[1]() }
	b := ag[1](0);
end.

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