fpcsrc/tests/test/tparray2.pp


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

{ %fail }

{$mode macpas}

type
  tba = packed array[0..7] of boolean;
  tkeymap = packed array[0..3] of tba;

var
  p: pointer;
  km: tkeymap;
begin
  p := @km[2][3];
end.