Test suite results for test file webtbs/tw3780.pp

Test run data :

Test file "webtbs/tw3780.pp" information:

t_id 1525
t_adddate 2005/03/14
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 940549.

Source:

{ Source provided for Free Pascal Bug Report 3780 }
{ Submitted by "Adriaan van Os" on  2005-03-13 }
{ e-mail: fpc@microbizz.nl }
{$mode gpc}
program func;

type tfun = function( x: real): real;

function f( x: real): real;
begin
        f:= x
end;

function fsum( fun: tfun; x1, x2: real): real;
begin
        fsum:= fun( x1) + fun( x2)
end;

begin
        writeln( fsum( f, 1.0, 2.0))
end.

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