t_id
1079
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ %FAIL } {$MODE objfpc} {$R+} type TMyRec = record x: Integer; end; TMyArray = array[LongWord] of TMyRec; PMyArray = ^TMyArray; var a: PMyArray; i: Integer; begin GetMem(a, SizeOf(TMyRec)); i := 0; a^[i].x := 1; end.