mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
8bc876c3fb
+ several array/record bitpacking tests from gpc, most work already git-svn-id: trunk@6633 -
35 lines
664 B
ObjectPascal
35 lines
664 B
ObjectPascal
{ 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.
|