t_id
1525
t_adddate
2005/03/14
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=0 Percentage= 0.00
Skipped=50 Percentage= 100.00
{ 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.