mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 13:28:05 +02:00
30 lines
315 B
ObjectPascal
30 lines
315 B
ObjectPascal
// Test to determine that function references are enabled in mode delphi
|
|
{$mode delphi}
|
|
{ $modeswitch functionreferences}
|
|
{%NORUN}
|
|
program tfuncref52;
|
|
|
|
Type
|
|
TProc = Reference to Procedure;
|
|
|
|
var
|
|
P : TProc;
|
|
|
|
Procedure Testit;
|
|
|
|
Procedure SoSo;
|
|
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
P:=SoSo;
|
|
P;
|
|
end;
|
|
|
|
begin
|
|
Testit;
|
|
end.
|
|
|