t_id
1114
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022780140 | 1027386 | True | False | Success, compilation failed |
Record count: 1
{ %Fail } { new with type of size > 2Gb } { 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 PosInteger = 0 .. high(integer); PosLongint = 0 .. high(longint); TMyRecord = record mr_sglDummy1: array[0..3] of Single; mr_lDummy2 : Longint; mr_iDummy3 : Integer; mr_iDummy4 : Integer; end; TMyRecordArray = array[PosInteger] of TMyRecord; TMyLongRecordArray = array[Longint] of TMyRecord; PMyRecordArray = ^TMyRecordArray; PMyLongRecordArray = ^TMyLongRecordArray; var pArray: PMyRecordArray; pLongArray : PMyLongRecordArray; size : longint; begin new(parray); new(pLongArray); size:= 50 * SizeOf(TMyRecord); GetMem(pArray, size); FillChar(pArray^,size,#0); GetMem(pLongArray, 50 * SizeOf(TMyRecord)); FillChar(pLongArray^,size,#0); Assert(Assigned(pArray)); WriteLn('pArray = ', Longint(pArray)); WriteLn('@(pArray^[0]) = ', Longint(@(pArray^[0]))); pArray^[0].mr_lDummy2 := 24; if (pArray^[0].mr_lDummy2<>24) then begin Halt(1); end; WriteLn('pLongArray = ', Longint(pLongArray)); WriteLn('@(pLongArray^[0]) = ', Longint(@(pLongArray^[0]))); pLongArray^[0].mr_lDummy2 := 25; if (pLongArray^[0].mr_lDummy2<>25) then begin Halt(1); end; FreeMem(pArray, size); FreeMem(pLongArray, size); end.