Test suite results for test file test/tpackrec.pp

Test run data :

Test file "test/tpackrec.pp" information:

t_id 1276
t_adddate 2004/03/15
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 497919.

Source:

{$packrecords 4}
type
  tr = record
    a,b : byte;
    l :longint
  end;
  
  SCSI_ADAPTER_BUS_INFO = record
    NumberOfBuses: char;
    BusData : array[0..0] of tr;
  end;
  
var
  p1,p2 : pchar;
  r : SCSI_ADAPTER_BUS_INFO;
begin
  p1:=@r.NumberOfBuses;
  p2:=@r.BusData;
  writeln(p2-p1);
  if p2-p1<>4 then
    halt(1);
end.

Link to SVN view of test/tpackrec.pp source.