fpcsrc/tests/webtbs/tw17342.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

var
  P1, P2: PCardinal;
  I: Integer;
begin

  // random pointer
  P1 := @I;
  P2 := P1;

  Inc(P1, 97);
  Inc(P1, -97);

  if (P1 <> P2) then
    halt(1);
end.