fpcsrc/tests/test/tpointermath3.pp


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

{ %norun }
program tpointermath3;

{$MODE FPC}
type
  PByte = ^Byte;
var
  PB: PByte;
begin
  // in FPC/ObjFPC mode pointer math is ON by default
  PB := PB + 1;
  WriteLn(PB[1]);
end.