uprec6.pp 378 B

12345678910111213141516171819202122
  1. {$bitpacking+}
  2. { from gpc testsuite (martin3u.pas) }
  3. Unit uprec6;
  4. Interface
  5. Const MaxA=5;
  6. MaxB=62;
  7. Type TPackedBoolean=Packed Array[1..MaxA] of Packed Array[1..MaxB] of Boolean;
  8. TRecord = Record
  9. C:Integer;
  10. PackedBoolean:TPackedBoolean;
  11. D:Integer;
  12. End;
  13. Var ARecord:TRecord;
  14. Implementation
  15. End.