fpc/tests/tbs/tb0332.pp
2002-09-07 15:40:30 +00:00

6 lines
48 B
ObjectPascal

var
l : farpointer;
begin
l:=ptr(0,0);
end.