t_id
1113
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=42 Percentage= 84.00
{ %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
}