mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:47:56 +02:00
20 lines
247 B
ObjectPascal
20 lines
247 B
ObjectPascal
{ %FAIL }
|
|
|
|
program tfuncref35;
|
|
|
|
{$mode objfpc}
|
|
{$modeswitch functionreferences}
|
|
{$modeswitch nestedprocvars}
|
|
|
|
type
|
|
TProcRef = reference to procedure;
|
|
TNestedVar = procedure is nested;
|
|
|
|
var
|
|
f: TProcRef;
|
|
v: TNestedVar;
|
|
begin
|
|
f := v;
|
|
end.
|
|
|