fpcsrc/tests/test/tparray22.pp


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

{ %fail }

type
  trange = 0..$ffffff;
  tarr = bitpacked array[0..20] of trange;

procedure p(var a: trange);
begin
end;

var
  a: tarr;
begin
  a[0]:=5;
  p(a[0]);
end.