blob: a859f52677079d01be29d63370142a147cd9c974 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ %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.
|
