1type
2  tr = bitpacked record
3    l: longint;
4  end;
5
6begin
7  if bitsizeof(tr) <> 32 then
8    halt(1);
9end.
10