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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
Path: 
 border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!newspeer1.nac.net!feeder.erje.net!eu.feeder.erje.net!newsfeed.tele2net.at!news.panservice.it!feed.xsnews.nl!border01.ams.xsnews.nl!feeder01.ams.xsnews.nl!frontend-F06-18.ams.94.232.116.90
Date: Tue, 28 Oct 2014 12:33:57 +0000
From: Martyn Pike <usenet@embeddedconsultinguk.com>
Reply-To: usenet@embeddedconsultinguk.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64;
 rv:24.0) Gecko/20100101 Thunderbird/24.6.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Question about reference types
References: <aa04bd67-d170-48e3-a659-239fb8acd0a9@googlegroups.com>
 <m2ldvg$lu6$1@dont-email.me>
 <7804a038-2eb0-4d70-b4ad-9bca94888661@googlegroups.com>
 <m2mhj2$rou$1@loke.gir.dk>
In-Reply-To: <m2mhj2$rou$1@loke.gir.dk>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Message-ID: <544f8d3a$0$25864$c00b7f07@94.232.116.90>
Organization: usenetbucket
Xref: number.nntp.giganews.com comp.lang.ada:190155
Date: 2014-10-28T12:33:57+00:00
List-Id: <comp.lang.ada>

On 27/10/2014 22:39, Randy Brukardt wrote:
> Looks like a GNAT bug to me. Send them a bug report.
>
> And don't make the mistake of thinking that what GNAT does is the same as
> what Ada requires. :-) All complex software has bugs, and GNAT surely is no
> exception.
>
>                                    Randy.
>
> <rkodinets@gmail.com> wrote in message
> news:7804a038-2eb0-4d70-b4ad-9bca94888661@googlegroups.com...
>> On Monday, October 27, 2014 3:31:52 PM UTC+3, G.B. wrote:
>>> To me it looks like an effect of trying new features not
>>> yet widely supported, or tested. But certainly worth a report
>>> if confirmed.
>>
>> I tested it with GNAT GPL 2014 and GNAT FSF 4.8.2 with same result.
>> (Forgot to mention it in OP)
>
>

I don't think this is a bug.

	type Accessor (Data : access constant Integer) with

Means Data is access to a constant Integer.  The OP is trying to modify 
Data with :

	Get_Int(X).Data.all := 33;

Martyn