1{$mode FPC}
2unit ub0339;
3interface
4type
5  r2 = packed record
6        Foo : Boolean;
7        Bar : (No, Yes);
8        Baz : 0 .. 3;
9        Qux : -1 .. 0;
10        Fred : 1 .. 7
11      end;
12  procedure PrintSize;
13implementation
14  procedure PrintSize;
15  begin
16    Writeln ('BBB: Size of packed record r2 = ', SizeOf (r2), ' bytes.')
17  end;
18begin end.
19