tprec14.pp « test « tests « fpcsrc - fpc - [no description]

summary refs log tree commit diff

path: root/fpcsrc/tests/test/tprec14.pp

blob: 77e01ecf7f3bdbfb59c7c1ecd3d62f5850457f85 (plain)

type
  tr = bitpacked record
    l: longint;
  end;

begin
  if bitsizeof(tr) <> 32 then
    halt(1);
end.