path: root/fpcsrc/tests/tbs/tb0332.pp

{  %cpu=x86_64,i386 }
var
  l : farpointer;
begin
  l:=ptr(0,0);
end.