1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
{ from gpc tests, original name: pack6.pas }
{ Introduced the type declaration. Previously, both arrays were `of 0..3'.
But EP 6.7.5.4 demands the component types to be the same, not only
compatible. GPC detects this now. Frank, 20030417 }
Program Pack6;
{$ifdef fpc}
{$bitpacking on}
type
Integer = ptrint;
{$endif}
Type
T03 = 0..3;
Var
p: packed array [ 1..4 ] of T03;
u: array [ 1..4 ] of T03;
i: Integer;
begin
for i:= 1 to 4 do
u [ i ]:= i - 1;
pack ( u, 1, p );
for i:= 1 to 4 do
if p [ i ] <> i - 1 then
begin
write ( 'failed: p', i, '=', p [ i ], '; ' );
halt(1);
end;
writeln ( 'OK' );
end.
|
