mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 06:09:27 +02:00
26 lines
271 B
ObjectPascal
26 lines
271 B
ObjectPascal
// Test to determine that anonymus functions are enabled in mode delphi
|
|
{$mode delphi}
|
|
{%NORUN}
|
|
program tfuncref52;
|
|
|
|
Type
|
|
TProc = Reference to Procedure;
|
|
|
|
var
|
|
P : TProc;
|
|
|
|
Procedure Testit;
|
|
|
|
begin
|
|
P:=procedure
|
|
begin
|
|
|
|
end;
|
|
P;
|
|
end;
|
|
|
|
begin
|
|
Testit;
|
|
end.
|
|
|