fpcsrc/tests/test/tparray23.pp


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

{ %fail }

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

procedure p(a: prange);
begin
end;

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