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,b688eb046592f849
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.238.198 with SMTP id vm6mr14452323pbc.3.1328630627821;
        Tue, 07 Feb 2012 08:03:47 -0800 (PST)
Path: 
 lh20ni270987pbb.0!nntp.google.com!news2.google.com!postnews.google.com!p13g2000yqd.googlegroups.com!not-for-mail
From: Adam Beneschan <adam@irvine.com>
Newsgroups: comp.lang.ada
Subject: Re: GNAT GPL 2011 bug ?
Date: Tue, 7 Feb 2012 08:01:54 -0800 (PST)
Organization: http://groups.google.com
Message-ID: 
 <8bdba20d-b3f0-4cdb-9e7f-97a9e8b25a64@p13g2000yqd.googlegroups.com>
References: 
 <4b574ffc-15f2-4c74-878c-1e9884849d1b@eb6g2000vbb.googlegroups.com>
 <a88ad728-36c9-48b6-b301-b4a07c366c73@m5g2000yqk.googlegroups.com>
NNTP-Posting-Host: 66.126.103.122
Mime-Version: 1.0
X-Trace: posting.google.com 1328630627 19452 127.0.0.1 (7 Feb 2012 16:03:47
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Tue, 7 Feb 2012 16:03:47 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: p13g2000yqd.googlegroups.com; posting-host=66.126.103.122;
 posting-account=duW0ogkAAABjRdnxgLGXDfna0Gc6XqmQ
User-Agent: G2/1.0
X-Google-Web-Client: true
X-Google-Header-Order: ARLUEHNKC
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.0; WOW64;
 Trident/4.0; SLCC1; .NET CLR 2.0.50727; Media Center PC 5.0; .NET CLR
 3.5.21022; .NET CLR 3.5.30729; .NET CLR 3.0.30618; .NET4.0C),gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Date: 2012-02-07T08:01:54-08:00
List-Id: <comp.lang.ada>

On Feb 7, 7:50=A0am, Adam Beneschan <a...@irvine.com> wrote:
> On Feb 7, 4:05=A0am, David <d.combesdhen...@gmail.com> wrote:
>
> > Hi all,
>
> > The compiler accept the line mark by a arrow of the adb bellow and
> > refuse the line mark by "****". I think it must not accept the first
> > line to. What do you think ?
>
> I agree, it's a bug. =A0It shouldn't allow a constant L_I to be passed
> as an OUT parameter.

Before somebody else nitpicks, I don't think it's possible for the
Test procedure to declare an object of type Test.L_I'Class since L_I
isn't declared inside Test.  I stuck the code in a package and changed
Test.L_I to use the package name before trying it.

                    -- Adam