freepascal.compiler/tests/tbf/tb0182.pp

{ %OPT=-Sew }
{ %fail }

{$T-}

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