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.