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.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,24a966a32c3e0a6c,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-12-15 12:42:25 PST
Path: 
 nntp.gmd.de!Germany.EU.net!howland.reston.ans.net!xlink.net!isar.de!news.cube.net!okellogg
From: okellogg@cube.net (Oliver Kellogg)
Newsgroups: comp.lang.ada
Subject: mini-quiz
Date: 15 Dec 1994 20:42:25 GMT
Organization: CUBENet Multiline BBS
Message-ID: <3cq9nh$5v2@salyko.cube.net>
NNTP-Posting-Host: cubnt3.cube.net
X-Newsreader: TIN [version 1.2 PL0]
Date: 1994-12-15T20:42:25+00:00
List-Id: <comp.lang.ada>

package Pkg is
   type Typ is (eins, zwei);
end Pkg;

with Pkg;
package Test is
   package Pkg is
      type Typ is (un, deux);
   end Pkg;
   X : Pkg.Typ;
end Test;

--Quick, without compiling (-: Of which type is X, Pkg.Typ, or Test.Pkg.Typ ?
--Bonus question: Where in the LRM ('83 or '95) is this documented ?

-- Oliver M. Kellogg | mail: okellogg@cube.net | fax: (+49)89-60723732 --
-- Dept. RST13, Deutsche Aerospace AG, P.O. Box 801169, D-81663 Munich --