mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 16:47:53 +02:00
23 lines
378 B
ObjectPascal
23 lines
378 B
ObjectPascal
{$bitpacking+}
|
|
|
|
{ from gpc testsuite (martin3u.pas) }
|
|
|
|
Unit uprec6;
|
|
Interface
|
|
|
|
Const MaxA=5;
|
|
MaxB=62;
|
|
|
|
Type TPackedBoolean=Packed Array[1..MaxA] of Packed Array[1..MaxB] of Boolean;
|
|
TRecord = Record
|
|
C:Integer;
|
|
PackedBoolean:TPackedBoolean;
|
|
D:Integer;
|
|
End;
|
|
|
|
Var ARecord:TRecord;
|
|
|
|
Implementation
|
|
|
|
End.
|