mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:07:59 +02:00
20 lines
311 B
ObjectPascal
20 lines
311 B
ObjectPascal
|
|
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.
|