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,921e3b85a02cded4,start
X-Google-Attributes: gid103376,public
From: Steve O'Neill <smoneill@sanders.lockheed.com>
Subject: Re: Help with Text_IO
Date: 1996/04/22
Message-ID: <317BC2E3.2DD3@sanders.lockheed.com>#1/1
X-Deja-AN: 150810738
content-type: text/plain; charset=us-ascii
organization: Sanders, A Lockheed-Martin Company
mime-version: 1.0
newsgroups: comp.lang.ada
x-mailer: Mozilla 2.01 (Win16; I)
Date: 1996-04-22T00:00:00+00:00
List-Id: <comp.lang.ada>

Robert Gelb wrote:
> I have the following code:
> procedure test is
>   type string is array(integer range 1..10) of character;
>   type SaType is array(integer range <>) of string;
>   StrArray:SaType(1..5);
> begin
>   put(StrArray(1));
> end test;

Why declare your own string type?  
How about just using a subtype of the predefined string type?
  subtype My_String is String(1..10);
and then make arrays of these...
  type SaType is array (integer range <>) of My_String;

Then the predefined Ada.Text_IO.Put(StrArray(1)) will work just fine.

-- 
Steve O'Neill                      | "No,no,no, don't tug on that!
Sanders, A Lockheed Martin Company |  You never know what it might
smoneill@sanders.lockheed.com      |  be attached to." 
(603) 885-8774  fax: (603) 885-4071|    Buckaroo Banzai