mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 12:07:58 +02:00
25 lines
459 B
ObjectPascal
25 lines
459 B
ObjectPascal
{ %KNOWNCOMPILEERROR }
|
|
{Test disabled because mode gpc is disabled.}
|
|
|
|
{ Source provided for Free Pascal Bug Report 3780 }
|
|
{ Submitted by "Adriaan van Os" on 20050313 }
|
|
{ email: 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.
|