t_id
1525
t_adddate
2005/03/14
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
565144779 | 954639 | False | True | Skipping test because it is a known bug |
Record count: 1
{ 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.