Re: Two Dimensional Array

[Stephen Leake <stephen.a.leake.1@gsfc.nasa.gov>]

brianc@billybob.demon.co.uk (Brian A Crawford) writes:

> I have a program to read  two numbers at a time from a file and then
> use a two dimensional array to look at that reference to see if a
> number 1 or 0 in assigned to the cell referenced.
> <snip>

Try this (I made the array smaller for simplicity):

with Ada.Text_IO; use Ada.Text_IO;
procedure Misc_Array_Aggregate
is
   subtype Firstevent is Integer range 1 .. 5;
   subtype Secondevent is Integer range 1 .. 5;
   type Two_Events_Type is array (Firstevent, Secondevent) of Integer;

   Event : Two_Events_Type :=
      (1      => (1 | 3 | 5 => 1, others => 0),
       2      => (2 | 4 => 1, others => 0),
       others => (others => 0));

begin
   Ada.Text_IO.Put_Line ("It works!");
end Misc_Array_Aggregate;

-- 
-- Stephe