fpcsrc/tests/tbs/tb0504.pp


1
2
3
4
5
6
7
8
9
10
11

{ %OPT=-Sew -vw }

{$T-}

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