With Ada.Text_IO; Use Ada.Text_IO;  
With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;

procedure Program is
  type T_Type is range -10 .. 27;
  for T_Type'Size use 6;
 
  type Vector is array(1 .. 100) of T_Type;
  Pragma Pack(Vector);
  My_Array : constant Vector := (1 => -5, 2 => 22, others => 10);
  
begin
  Put_Line(Integer'Image(My_Array'Size)); -- 
end Program;