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=-0.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: "G.B." <bauhaus@futureapps.invalid>
Newsgroups: comp.lang.ada
Subject: Re: Ada design bug or GNAT bug?
Date: Tue, 23 Jun 2015 13:45:35 +0200
Organization: A noiseless patient Spider
Message-ID: <mmbgqe$dlv$1@dont-email.me>
References: <yo94phsbcvht$.1bktwe2qoqntt$.dlg@40tude.net>
 <mm58b5$9k0$1@loke.gir.dk> <4lrj5zz2u2z.u8x9cf7xzic6.dlg@40tude.net>
 <mm9h84$5n8$1@loke.gir.dk> <ykiyl6yc44or$.19365hv76bzoi.dlg@40tude.net>
Reply-To: nonlegitur@futureapps.de
Mime-Version: 1.0
Content-Type: text/plain; charset=windows-1252; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Tue, 23 Jun 2015 11:44:14 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="b96887e80893c84a90c3007226ca0d1c";
	logging-data="14015"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX189rnrgw9XJlmJADhOhsVOxs5BuuqIPdJw="
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.10;
 rv:31.0) Gecko/20100101 Thunderbird/31.7.0
In-Reply-To: <ykiyl6yc44or$.19365hv76bzoi.dlg@40tude.net>
Cancel-Lock: sha1:vCGrVItGuLZRMuZeT22elsy2XqU=
Xref: news.eternal-september.org comp.lang.ada:26422
Date: 2015-06-23T13:45:35+02:00
List-Id: <comp.lang.ada>

On 22.06.15 20:16, Dmitry A. Kazakov wrote:

> with P1; use P1;
> package P2 is
>     type T3 is new T1 with private;
> private
>     type T3 is new T2 with null record;
>     overriding function Foo return T3; -- ILLEGAL!
> end P2;


Would this do, as it is, oddly maybe, accepted:

with P1;
package P22 is
    type T3 is new P1.T1 with private;
private
    package Layer is
       type T22 is new P1.T2 with null record;
    private
       overriding function Foo return T22;
    end Layer;
    type T3 is new Layer.T22 with null record;
end P22;