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 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,e55245590c829bef
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,UTF8
Path: 
 g2news2.google.com!news4.google.com!feeder.news-service.com!xlned.com!feeder7.xlned.com!news2.euro.net!newsfeed.freenet.ag!npeer.de.kpn-eurorings.net!npeer-ng0.de.kpn-eurorings.net!newsfeed.arcor.de!newsspool4.arcor-online.net!news.arcor.de.POSTED!not-for-mail
Date: Mon, 01 Nov 2010 18:27:56 +0100
From: Georg Bauhaus <rm-host.bauhaus@maps.futureapps.de>
User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; en-US;
 rv:1.9.2.12) Gecko/20101027 Thunderbird/3.1.6
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Beginners question: Compound types, how-to?
References: <86wroy58ff.fsf@gareth.avalon.lan>
 <iale5p$2f6$1@tornado.tornevall.net>
 <C8F4682A.1536ED%yaldnif.w@blueyonder.co.uk> <op.vlh4x9o5ule2fv@garhos>
In-Reply-To: <op.vlh4x9o5ule2fv@garhos>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 8bit
Message-ID: <4ccef89c$0$6891$9b4e6d93@newsspool2.arcor-online.net>
Organization: Arcor
NNTP-Posting-Date: 01 Nov 2010 18:27:56 CET
NNTP-Posting-Host: c9b73f03.newsspool2.arcor-online.net
X-Trace: 
 DXC=^IGB\LBLH2=n`gW2MTm]<3A9EHlD;3Yc24Fo<]lROoR18kF<OcfhCO;?ehMhE]dHM=BhmZ<nLOhK;E2?MTSm7@k;FZSgdJjYH_2
X-Complaints-To: usenet-abuse@arcor.de
Xref: g2news2.google.com comp.lang.ada:16081
Date: 2010-11-01T18:27:56+01:00
List-Id: <comp.lang.ada>

On 11/1/10 6:16 PM, Yannick Duchêne (Hibou57) wrote:
> Le Mon, 01 Nov 2010 12:50:50 +0100, (see below) <yaldnif.w@blueyonder.co.uk> a écrit:
>>> Children always have visibility into the specs of their ancestors, so you
>>> never need to "with" said ancestors.
>>
>> While the first claim is true, the second does not follow, as I am given to
>> understand it.
>>
>> If you need:
>>
>> pragma Elaborate_All(<ancestor>);
>>
>> Then you also need:
>>
>> with <ancestor>;
> I've just checked it with GNAT, it did not return an error. <ancestor> is implicitly withed even with Elaborate_All. No special case with this pragma.
>
>

Which GNAT is this?  I get

$ gnatmake -gnatl -gnatf ancestor-child.ads
gcc -c -gnatl -gnatf ancestor-child.ads

GNAT GPL 2010 (20100603)
Copyright 1992-2010, Free Software Foundation, Inc.


Compiling: ancestor-child.ads (source file time stamp: 2010-11-01 17:26:24)

      1. pragma elaborate_all(ancestor);
                              |
         >>> argument of pragma "elaborate_all" is not withed unit

      2. package ancestor.child is
      3. end ancestor.child;

  3 lines: 1 error
gnatmake: "ancestor-child.ads" compilation error