[Q] Problem with Array Concatenation?

[john@assen.demon.co.uk (John McCabe)]

Hi,

I would appreciate confirmation on whether the following piece of code
is legal Ada 83, and what the effect should be (obviously I haven't
bothered with Text_IO for outputting results, but what should happen
when I compile this?).

-----------
procedure Test is
   type Arr_Type is array (1 .. 100) of Integer;

   Src_Array : Arr_Type;
   Dst_Array : Arr_Type;
begin
   for Index in 1 .. 100 loop
      Src_Array (Index) := Index;
   end loop;
   Dst_Array := (others => 0);

   Dst_Array := Src_Array (51 .. 100) & Src_Array (1 .. 50);
end Test;
-----------

Thanking you in advance.


Best Regards
John McCabe <john@assen.demon.co.uk>