From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,2507b6d982782e45,start
X-Google-Attributes: gid103376,public
From: john@assen.demon.co.uk (John McCabe)
Subject: [Q] Problem with Array Concatenation?
Date: 1997/07/08
Message-ID: <33c280c8.418253@news.demon.co.uk>#1/1
X-Deja-AN: 255551605
X-NNTP-Posting-Host: assen.demon.co.uk [158.152.218.101]
Newsgroups: comp.lang.ada
Date: 1997-07-08T00:00:00+00:00
List-Id: <comp.lang.ada>


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>