fpcsrc/tests/test/tparray8.pp


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

{ %fail }

{ from gpc test suite }
program PCErrorA;

{$r+}
var
chs :bitpacked array [1..10] of char;
ch1 :array[1..10] of char;

begin
pack(ch1,2,chs);  { WRONG }
end.