t_id
1113
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949118138 | 1015527 | True | False | Success, compilation failed |
Record count: 1
{ %FAIL } { Source provided for Free Pascal Bug Report 2053 } { Submitted by "Luis Castedo" on 2002-07-24 } { e-mail: castedo@elai.upm.es } program tb2; {$MODE TP} {$C+} type TMyRecord = record mr_sglDummy1: array[0..3] of Single; mr_lDummy2 : Longint; mr_iDummy3 : Integer; mr_iDummy4 : Integer; end; { TMyRecordArray = array[Integer] of TMyRecord;} { Error } TMyRecordArray = array[Longint] of TMyRecord; { OK } PMyRecordArray = ^TMyRecordArray; var pArray: PMyRecordArray; begin GetMem(pArray, 50 * SizeOf(TMyRecord)); Assert(Assigned(pArray)); WriteLn('pArray = ', Longint(pArray)); WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0]))); pArray^[0].mr_lDummy2 := 0; FreeMem(pArray, 50 * SizeOf(TMyRecord)); end. { $Log: tw2053.pp,v $ Revision 1.4 2002/10/15 15:48:25 carl - remove Pierre's diff. Revision 1.3 2002/10/15 06:38:29 pierre * really try to allocate more than 2Gb Revision 1.2 2002/10/09 16:56:46 carl * some cpu specific tests not run under other CPU's Revision 1.1 2002/09/27 21:09:56 carl + new bug report }