freepascal.compiler/tests/webtbf/tw4244.pp

{ %fail }

function f: pointer;
begin
  f := pointer(1);
end;

var
  p : pointer;
begin
  p := @longint(f);
end.