freepascal.compiler/bugs/bug0068.pp

program bug0068;

var
  p : pointer;
  l  : longint;
begin
  l:=Ofs(p); { Ofs returns a pointer type !? }
  
end.