mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-16 00:10:44 +01:00
20 lines
368 B
ObjectPascal
20 lines
368 B
ObjectPascal
{$ifdef fpc}{$mode tp}{$endif}
|
|
|
|
type tmpproc=function:longint;
|
|
|
|
function a:longint;{$ifndef fpc}far;{$endif}
|
|
begin
|
|
a:=-1;
|
|
end;
|
|
|
|
procedure tmp(aa: tmpproc);
|
|
begin
|
|
writeln(aa); { "Cannot read/write variables of this type", TP kan dit
|
|
wel? }
|
|
if aa<>-1 then halt(1);
|
|
end;
|
|
|
|
begin
|
|
tmp(a); { de TP manier , in FPC moet dit zijn tmp(@a); }
|
|
end.
|