fpcsrc/tests/test/tprec10.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ %fail }

{$mode tp}

type
  tr = bitpacked record
    a,b: 0..7;
  end;

var
  r: tr;
begin
  for r.a := 0 to 4 do
    writeln; 
end.