mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-09 19:08:15 +02:00
8bc876c3fb
+ several array/record bitpacking tests from gpc, most work already git-svn-id: trunk@6633 -
27 lines
468 B
ObjectPascal
27 lines
468 B
ObjectPascal
{ from gpc testsuite, original name: waldek9b.pas }
|
|
|
|
{$ifdef fpc}
|
|
{$mode macpas}
|
|
{$endif}
|
|
|
|
program rrr(Output);
|
|
type tr = record end;
|
|
tp = packed record
|
|
i : tr;
|
|
end;
|
|
var a : array [0..15] of tp;
|
|
pa : packed array [0..15] of tp;
|
|
begin
|
|
pack (a, 0, pa);
|
|
if sizeof(a) <> 0 then
|
|
halt(1);
|
|
if (sizeof(pa) <> 0) then
|
|
halt(2);
|
|
if (sizeof(tr) <> 0) then
|
|
halt(3);
|
|
if (sizeof(tp) <> 0) then
|
|
halt(4);
|
|
WriteLn ('OK')
|
|
end.
|
|
|