fpcsrc/tests/test/tprec9.pp


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

{ %fail }

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

var
  r: tr;
  p: pointer;
begin
  p := @r.b;
end.