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-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,3a6aafa384c96cc6,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-10-02 03:06:50 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!newsfeeds.belnet.be!news.belnet.be!newsfeed00.sul.t-online.de!newsfeed01.sul.t-online.de!t-online.de!dns.phoenix-ag.de!news.uni-stuttgart.de!not-for-mail
From: Peter Hermann <ica2ph@iris16.csv.ica.uni-stuttgart.de>
Newsgroups: comp.lang.ada
Subject: with child: access to parent
Date: 2 Oct 2001 10:06:49 GMT
Organization: Comp.Center (RUS), U of Stuttgart, FRG
Message-ID: <9pc3jp$old$1@infosun2.rus.uni-stuttgart.de>
NNTP-Posting-Host: iris16.csv.ica.uni-stuttgart.de
User-Agent: tin/pre-1.4-980117 (UNIX) (IRIX/6.5 (IP22))
Xref: archiver1.google.com comp.lang.ada:13610
Date: 2001-10-02T10:06:49+00:00
List-Id: <comp.lang.ada>

We happened to detect following non-expected 
language permission (at least by gnat3.13p):

--------------------
with pak.child;
procedure mytest is
begin
   pak.hugo:=1;
   end;
--------------------
package pak is
   hugo :integer;
   end pak;
--------------------
package pak.child is
end;
--------------------

This may be perfectly legal but
I can not find the appropriate rule 
in the LRM.

-- 
Peter Hermann Tel+49-711-685-3611 Fax3758 ica2ph@csv.ica.uni-stuttgart.de
Pfaffenwaldring 27 Raum 114, D-70569 Stuttgart Uni Computeranwendungen
http://www.csv.ica.uni-stuttgart.de/homes/ph/
Team Ada: "C'mon people let the world begin" (Paul McCartney)