mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-26 01:58:19 +02:00
22 lines
392 B
ObjectPascal
22 lines
392 B
ObjectPascal
{ 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.
|