mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 07:28:09 +02:00
25 lines
315 B
ObjectPascal
25 lines
315 B
ObjectPascal
{$ifdef fpc}{$mode delphi}{$endif}
|
|
|
|
type
|
|
BRec = record
|
|
fu: Function:Longint;
|
|
end;
|
|
|
|
var
|
|
a : Longint;
|
|
b : BRec;
|
|
|
|
function f1:longint;
|
|
begin
|
|
result:=10;
|
|
end;
|
|
|
|
begin
|
|
b.fu:=f1;
|
|
// a:=b.fu(); // works well
|
|
a:=b.fu; // causes "Error: incompatible types"
|
|
writeln(a);
|
|
if a<>10 then
|
|
halt(1);
|
|
end.
|