Test suite results for test file tbs/tb0339.pp

Test run data :

Test file "tbs/tb0339.pp" information:

t_id 558
t_adddate 2003/10/03
t_result 0
t_knownrunerror 0

Detailed test run results:

Record count: 1

No log of 1015553.

Source:

{$mode TP}
uses ub0339;
type
  r = packed record
        Foo : Boolean;
        Bar : (No, Yes);
        Baz : 0 .. 3;
        Qux : -1 .. 0;
        Fred : 1 .. 7
      end;
begin
  Writeln ('AAA: Size of packed record r = ', SizeOf (r), ' bytes.');
  Writeln ('AAA: Size of packed record r2 = ', SizeOf (r2), ' bytes.');
  PrintSize;
end.

Link to SVN view of tbs/tb0339.pp source.