freepascal.compiler/tests/tbs/tb0504.pp

{ %OPT=-Sew }

{$T-}

var
  i: integer;
  p: pointer;
begin
  p := pointer(@i)+5;
  i := integer(p-p);
end.