From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.5-pre1 (2020-06-20) on
	ip-172-31-74-118.ec2.internal
X-Spam-Level: 
X-Spam-Status: No, score=-0.5 required=3.0 tests=BAYES_05,FREEMAIL_FROM
	autolearn=ham autolearn_force=no version=3.4.5-pre1
X-Received: by 2002:ac8:4b48:: with SMTP id e8mr16296289qts.254.1610801836782; Sat, 16 Jan 2021 04:57:16 -0800 (PST)
X-Received: by 2002:a25:5582:: with SMTP id j124mr25185386ybb.309.1610801836612; Sat, 16 Jan 2021 04:57:16 -0800 (PST)
Path: eternal-september.org!reader02.eternal-september.org!feeder1.feed.usenet.farm!feed.usenet.farm!feeder.usenetexpress.com!tr3.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sat, 16 Jan 2021 04:57:16 -0800 (PST)
In-Reply-To: <ddd4c9e8-0ea9-43c5-92e6-79152138e01bn@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=2a02:c7f:3883:a000:903a:ca20:bc87:7c41; posting-account=YRfoYAoAAADhSEO2nLYx10QUUvp8akYl
NNTP-Posting-Host: 2a02:c7f:3883:a000:903a:ca20:bc87:7c41
References: <1cc09f04-98f2-4ef3-ac84-9a9ca5aa3fd5n@googlegroups.com> <c0409256-1edd-4a06-8243-7120ea38b632n@googlegroups.com> <fbe75221-b91c-4d98-b537-61f6b33acae6n@googlegroups.com> <rtrv12$6k0$1@dont-email.me> <e0f9d0f3-bb4f-43e8-95ac-c83e347f4197n@googlegroups.com> <ddd4c9e8-0ea9-43c5-92e6-79152138e01bn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a3c00c9c-1f39-4bcc-bfc1-3162b07ba4d9n@googlegroups.com>
Subject: Re: Lower bounds of Strings
From: Stephen Davies <joviangm@gmail.com>
Injection-Date: Sat, 16 Jan 2021 12:57:16 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:61153
List-Id: <comp.lang.ada>

On Friday, 15 January 2021 at 19:36:03 UTC, ehh.p...@gmail.com wrote:
> procedure Foo(Item :in out String) is 
> subtype Mono_String is String (1..Item'Length); 
> procedure Inner_Foo(Item : in out Mono_String) is 
> ...
That works, but I'd rather the language directly supported
something that achieved the same thing.