gcc/testsuite/gnat.dg/bit_packed_array.ads

   1 with Interfaces;
   2
   3 package Bit_Packed_Array is
   4
   5    type laser_illuminator_code_group_t is (zero, one);
   6    pragma Convention (C, laser_illuminator_code_group_t);
   7
   8    subtype lic_array_index_t is Interfaces.Unsigned_8 range 0 .. 3;
   9
  10    type lic_array_t is array (lic_array_index_t) of laser_illuminator_code_group_t;
  11    pragma Convention (C, lic_array_t);
  12
  13    type Eighty_Bytes_T is array (1 .. 80) of Interfaces.Unsigned_8;
  14
  15    type Mission_Assignment_T is record
  16       Eighty_Bytes           : Eighty_Bytes_T;
  17       Laser_Illuminator_Code : lic_array_t;
  18    end record;
  19
  20    for Mission_Assignment_T use record
  21       Eighty_Bytes           at 0 range   0 .. 639;
  22       Laser_Illuminator_Code at 0 range 653 .. 780;
  23    end record;
  24
  25    type Mission_Assignment_Dbase_Rec_T is record
  26       ISF : Mission_Assignment_T;
  27    end record;
  28
  29    MADR : Mission_Assignment_Dbase_Rec_T;
  30
  31    procedure Generate_Callforward;
  32
  33 end Bit_Packed_Array;