| 123456789101112131415161718192021222324 |
- { %KNOWNCOMPILEERROR=Test disabled because mode gpc is disabled. }
- {Test disabled because mode gpc is disabled.}
- { Source provided for Free Pascal Bug Report 3780 }
- { Submitted by "Adriaan van Os" on 20050313 }
- { email: [email protected] }
- {$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.
|
