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=-2.9 required=5.0 tests=BAYES_00,MAILING_LIST_MULTI autolearn=unavailable autolearn_force=no version=3.4.4 X-Google-Thread: 103376,532862505ad62ff5 X-Google-Attributes: gid103376,public,usenet X-Google-Language: ENGLISH,ASCII Path: g2news2.google.com!news4.google.com!out02a.usenetserver.com!news.usenetserver.com!in01.usenetserver.com!news.usenetserver.com!news.tele.dk!news.tele.dk!small.news.tele.dk!tiscali!newsfeed1.ip.tiscali.net!feeder1-2.proxad.net!proxad.net!feeder2-2.proxad.net!cleanfeed4-a.proxad.net!nnrp4-1.free.fr!not-for-mail Return-Path: X-Virus-Scanned: amavisd-new at ada-france.org Date: Thu, 26 Jul 2007 07:08:47 +0200 From: "Grein, Christoph (Fa. ESG)" Subject: AW: Does 3.9.3(10) apply to untagged private whose full view is tagged? In-reply-to: <1185401098.912519.245650@z28g2000prd.googlegroups.com> To: comp.lang.ada@ada-france.org MIME-version: 1.0 X-MIMEOLE: Produced By Microsoft MimeOLE V6.00.3790.1830 Content-Type: text/plain; charset=iso-8859-1 Content-transfer-encoding: quoted-printable Content-class: urn:content-classes:message Importance: normal Priority: normal Thread-topic: Does 3.9.3(10) apply to untagged private whose full view is tagged? Thread-index: AcfPCJUdmeAkMQnNSl+hRlFTEk6IJwAOhhBA X-OriginalArrivalTime: 26 Jul 2007 05:08:49.0252 (UTC) FILETIME=[0D13FA40:01C7CF43] X-BeenThere: comp.lang.ada@ada-france.org X-Mailman-Version: 2.1.9rc1 Precedence: list List-Id: "Gateway to the comp.lang.ada Usenet newsgroup" List-Unsubscribe: , List-Post: List-Help: List-Subscribe: , Newsgroups: comp.lang.ada Message-ID: X-Leafnode-NNTP-Posting-Host: 88.191.17.134 Organization: Guest of ProXad - France NNTP-Posting-Date: 26 Jul 2007 07:10:02 MEST NNTP-Posting-Host: 88.191.14.223 X-Trace: 1185426602 news-2.free.fr 8026 88.191.14.223:43275 X-Complaints-To: abuse@proxad.net Xref: g2news2.google.com comp.lang.ada:1190 Date: 2007-07-26T07:10:02+02:00 Adam, I think your analysis is correct and GNAT has a bug here. Also another = compiler compiles it without complaint. Eurocopter Deutschland GmbH Sitz der Gesellschaft/Registered Office: Donauwoerth Registergericht/Registration Court: Amtsgericht Augsburg HRB 16508 Vorsitzender des Aufsichtsrates/Chairman of the Supervisory Board: Dr. = Lutz Bertling Geschaeftsfuehrung/Board of Management: Dr. Wolfgang Schoder, Vorsitzender/CEO; Friedrich-Wilhelm Hormel; Ralf = Barnscheidt CONFIDENTIALITY NOTICE=20 This communication and the information it contains is intended for the = addressee(s) named above and for no other persons or organizations. It = is confidential and may be legally privileged and protected by law. The = unauthorized use, copying or disclosure of this communication or any = part of it is prohibited and may be unlawful.=20 If you have received this communication in error, kindly notify us by = return e-mail and discard and/or delete the communication. Thank you = very much.=20 It is possible for e-mails to be intercepted or affected by viruses. = Whilst we maintain virus checks on our e-mails, we accept no liability = for viruses or other material which might be introduced with this = message.=20 -----Urspr=FCngliche Nachricht----- package Pak1 is type T1 is private; private type T1 is tagged record F1 : Integer; end record; function Func (X : Integer) return T1; end Pak1;