freepascal.compiler/tests/test/tpackrec.pp

{$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:[email protected];
  p2:[email protected];
  writeln(p2-p1);
  if p2-p1<>4 then
    halt(1);
end.