fork(2) download
copy 
  1. With Ada.Text_IO; Use Ada.Text_IO;  
  2. With Ada.Integer_Text_IO; Use Ada.Integer_Text_IO;
  3.  
  4. procedure Program is
  5. 	type T_Type is range -10 .. 27;
  6. for T_Type'Size use 6;
  7.  
  8. type Vector is array(1 .. 100) of T_Type;
  9. Pragma Pack(Vector);
  10. My_Array : constant Vector := (1 => -5, 2 => 22, others => 10);
  11.  
  12. begin
  13. Put_Line(Integer'Image(My_Array'Size));
  14. end Program;
Success #stdin #stdout 0s 5764KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
 600
https://ideone.com/uAzl41
language:
Ada95 (gnat 8.3)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!