fork(1) download 
  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 
Standard input is empty
stdout 
 600
https://ideone.com/V4hSoI
language:
Ada95 (gnat 8.3)
created:
11 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!