blob: eecc4f8baea53da4797d48b7ddfb295c4404206c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
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.
|