gcc/testsuite/gnat.dg/bit_packed_array5.ads

   1 package Bit_Packed_Array5 is
   2
   3    type Bit_Array is array (Integer range <>) of Boolean;
   4    pragma Pack (Bit_Array);
   5
   6    type Short_Bit_Array_Type is new Bit_Array (0 .. 15);
   7    for Short_Bit_Array_Type'Size use 16;
   8
   9    type Word_Type is range 0 .. 65535;
  10    for Word_Type'Size use 16;
  11
  12    function Inv (Word : Word_Type) return Word_Type;
  13
  14 end Bit_Packed_Array5;