paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* enhance check

Browse Source
This commit is contained in:
pierre 2003-02-11 11:58:31 +00:00
parent 3ccb3973d3
commit 168690c833
1 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
tests/tbs/tb0434.pp
View File

@ -1,7 +1,19 @@
function dummy : longint;
begin
dummy:=1;
end;
var var
x:function:longint; x:function:longint;
x2:function:longint;
y:pointer absolute x; y:pointer absolute x;
y2:pointer absolute x2;
begin begin
if y<>nil then x2:=@dummy;
halt(1); if (y<>nil) or (y2<>pointer(@dummy)) then
begin
Writeln('Wrong code generated for absolute to procvarsmy');
halt(1);
end;
end. end.