Repository URL to install this package:
Version:
3.0.0 ▾
|
function dummy : longint;
begin
dummy:=1;
end;
var
x:function:longint;
x2:function:longint;
y:pointer absolute x;
y2:pointer absolute x2;
begin
x2:=@dummy;
if (y<>nil) or (y2<>pointer(@dummy)) then
begin
Writeln('Wrong code generated for absolute to procvarsmy');
halt(1);
end;
end.