fpcsrc/tests/webtbf/tw0855.pp


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

{ %FAIL }
{$MODE objfpc}
{$R+}
type
  TMyRec = record
    x: Integer;
  end;
  TMyArray = array[Ptrint] of TMyRec;
  PMyArray = ^TMyArray;
var
  a: PMyArray;
  i: Integer;
begin
  GetMem(a, SizeOf(TMyRec));
  i := 0;
  a^[i].x := 1;
end.