gcc/testsuite/gnat.dg/bit_packed_array1.ads

   1 with Interfaces;
   2
   3 package Bit_Packed_Array1 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)
  11     of laser_illuminator_code_group_t;
  12    pragma Convention (C, lic_array_t);
  13
  14    type Eighty_Bytes_T is array (1 .. 80) of Interfaces.Unsigned_8;
  15
  16    type Mission_Assignment_T is record
  17       Eighty_Bytes           : Eighty_Bytes_T;
  18       Laser_Illuminator_Code : lic_array_t;
  19    end record;
  20
  21    for Mission_Assignment_T use record
  22       Eighty_Bytes           at 0 range   0 .. 639;
  23       Laser_Illuminator_Code at 0 range 653 .. 780;
  24    end record;
  25
  26    type Mission_Assignment_Dbase_Rec_T is record
  27       ISF : Mission_Assignment_T;
  28    end record;
  29
  30    MADR : Mission_Assignment_Dbase_Rec_T;
  31
  32    procedure Generate_Callforward;
  33
  34 end Bit_Packed_Array1;