freepascal.compiler/tests/tbs/tb0332.pp

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