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.36.137.130 with SMTP id s124mr1595931itd.30.1508951002977;
        Wed, 25 Oct 2017 10:03:22 -0700 (PDT)
X-Received: by 10.157.20.173 with SMTP id d42mr106984ote.3.1508951002927; Wed,
 25 Oct 2017 10:03:22 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!feeder.eternal-september.org!news.linkpendium.com!news.linkpendium.com!news.snarked.org!border2.nntp.dca1.giganews.com!nntp.giganews.com!l196no5531971itl.0!news-out.google.com!193ni1322iti.0!nntp.google.com!l196no5531968itl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 25 Oct 2017 10:03:22 -0700 (PDT)
In-Reply-To: <97915524-04a8-4954-8ed8-058ad63f529e@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=2003:c7:83cf:ce7a:535:abe2:11a5:2b10;
 posting-account=rmHyLAoAAADSQmMWJF0a_815Fdd96RDf
NNTP-Posting-Host: 2003:c7:83cf:ce7a:535:abe2:11a5:2b10
References: <osde6h$256$1@gioia.aioe.org>
 <2be64a8b-5f89-414c-9dcd-433bd5d855a0@googlegroups.com>
 <osoh5h$58o$1@franka.jacob-sparre.dk>
 <97915524-04a8-4954-8ed8-058ad63f529e@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <b1204442-ba3e-4a37-ba44-033dca774f96@googlegroups.com>
Subject: Re: Alleged GNAT bug
From: AdaMagica <christ-usch.grein@t-online.de>
Injection-Date: Wed, 25 Oct 2017 17:03:22 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: news.eternal-september.org comp.lang.ada:48590
Date: 2017-10-25T10:03:22-07:00
List-Id: <comp.lang.ada>

Am Mittwoch, 25. Oktober 2017 02:53:26 UTC+2 schrieb A. Cervetti:
> So I conclude:
> The error happens at the freezing point, but with gnat-2017 only in the modular version.
> The code could be legal because it works in the monolithic version, but 

I guess you are right. Exporting the last instantiation Finalizer to a child makes the program legal.

package Term.Child is

   package Finalizer is new Term_Handled_Record.With_Finalization(Term_Type_Without_Finalize);

   type Term_Type is new Finalizer.Derived with null record;

end Term.Child;

An instantiation seems to freeze the actual type 13.14(5/3), and Term_Type_Without_Finalize has a primitive operation involving an incomplete type. 13.14(10.2/4) does not apply here IMO.

But I'm in no way a language lawyer, and 13.14 is the heart of darkness.

As a side note I must say, I'm completely confused about the namings in this code. The type Base_Object is already finalized, and any and all further derivations do not add more finalizing code.