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.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.129.92.198 with SMTP id q189mr14682239ywb.40.1447352083878;
        Thu, 12 Nov 2015 10:14:43 -0800 (PST)
X-Received: by 10.182.227.200 with SMTP id sc8mr163360obc.10.1447352083846;
 Thu, 12 Nov 2015 10:14:43 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!au2pb.net!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!peer03.iad.highwinds-media.com!news.highwinds-media.com!feed-me.highwinds-media.com!f78no202740qge.1!news-out.google.com!f6ni232igq.0!nntp.google.com!i2no2245883igv.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Thu, 12 Nov 2015 10:14:43 -0800 (PST)
In-Reply-To: <8ae150b2-7bf9-4f98-97df-e4c779ec78e6@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=94.107.233.114;
 posting-account=6m7axgkAAADBKh082FfZLdYsJ24CXYi5
NNTP-Posting-Host: 94.107.233.114
References: <7ba56b33-28d4-42d2-8b9b-5ad9f5beab8b@googlegroups.com>
 <87io597447.fsf@theworld.com>
 <66278720-249a-4191-a908-bb840e7f3ccc@googlegroups.com>
 <faede672-7158-4c24-9647-8bd6f0cb5742@googlegroups.com>
 <n1vtm0$db7$1@dont-email.me>
 <d3958370-a3c5-4aac-9abf-bc9ddc873494@googlegroups.com>
 <6d874e75-e2c9-47e9-b394-f04052f10aa3@googlegroups.com>
 <cb164350-3ee0-4324-8d42-cfc66c2c4d5f@googlegroups.com>
 <1a532527-f48c-4646-abb5-ec64b5e6106b@googlegroups.com>
 <n22k4s$vk3$1@dont-email.me>
 <8ae150b2-7bf9-4f98-97df-e4c779ec78e6@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <aa48443f-2ea3-4964-9bff-69510be7a7c0@googlegroups.com>
Subject: Re: Bounded String question
From: Serge Robyns <serge.robyns@gmail.com>
Injection-Date: Thu, 12 Nov 2015 18:14:43 +0000
Content-Type: text/plain; charset=ISO-8859-1
X-Received-Bytes: 2940
X-Received-Body-CRC: 3136918695
Xref: news.eternal-september.org comp.lang.ada:28323
Date: 2015-11-12T10:14:43-08:00
List-Id: <comp.lang.ada>

On Thursday, 12 November 2015 19:13:17 UTC+1, Serge Robyns  wrote:
> On Thursday, 12 November 2015 19:03:19 UTC+1, G.B.  wrote:
> > On 11.11.15 21:40, AdaMagica wrote:
> > > Am Mittwoch, 11. November 2015 21:32:39 UTC+1 schrieb Serge Robyns:
> > >> This how this whole thread started.  That construct does not work
> > >> with pragma preelaborate.  But this was exactly the code I had initially :-)
> > >
> > > No complaint from GNAT GPL 2015:
> > > --------------------------------
> > >
> > > with Ada.Strings; use Ada.Strings;
> > > with Ada.Strings.Bounded;
> > >
> > > procedure BS_Test is
> > >
> > >    pragma Preelaborate;
> > 
> > Are the requirements for Elaborate (or for Pure) different for
> > a library unit that is a subprogram? GNAT does not rejected this
> > "pure" one either:
> > 
> > procedure Purity (A : Integer) is
> > 
> >     pragma Pure (Purity);
> > 
> >     type P is access String;
> > 
> >     X : P := new String'("abc");
> >     Y : String := Integer'Image (A);
> >     Z : String := Y (1) & Y (A);
> > 
> > begin
> >     Y (3) := X (1);
> > end Purity;
> > 
> > Diagnostics change in the opposite direction when the same declarations
> > appear in a package spec.
> 
> I do confirm the exact diagnostic.

The exact same diagnostic to complete my initial statement.