tests/test/tpointermath2.pp


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

{ %fail }
program tpointermath2;

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
type
  PByte = ^Byte;
var
  PB: PByte;
begin
  // Pointer math must fail in delphi mode without pointermath directive
  PB := PB + 1;
end.