blob: 6346559381d618292c158440835b42c899e245ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %fail }
{$modeswitch nestedprocvars}
procedure outer;
function test(l: longint): longint;
begin
test:=l*2;
end;
{ can't assign nested proc to typed const, requires
frame pointer }
const
pp: function(l: longint): longint is nested = @test;
begin
end;
begin
end.
|
