mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:07:55 +02:00
c4b347c271
parameter list they represent nested procvars, which aren't supported yet) git-svn-id: trunk@32454 -
21 lines
225 B
ObjectPascal
21 lines
225 B
ObjectPascal
program tprocvaranon;
|
|
|
|
type
|
|
tprocvaranonrec = record
|
|
p: function: longint;
|
|
end;
|
|
|
|
function test: longint;
|
|
begin
|
|
test:=123;
|
|
end;
|
|
|
|
var
|
|
r: tprocvaranonrec;
|
|
begin
|
|
r.p:=@test;
|
|
if r.p()<>123 then
|
|
halt(1);
|
|
end.
|
|
|