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,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 2002:a05:620a:1472:: with SMTP id
 j18mr57000406qkl.184.1577720676386; Mon, 30 Dec 2019 07:44:36 -0800 (PST)
X-Received: by 2002:a05:6830:1185:: with SMTP id
 u5mr70143113otq.147.1577720676086; Mon, 30 Dec 2019 07:44:36 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!feeder1.feed.usenet.farm!feed.usenet.farm!feeder.usenetexpress.com!tr3.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!g89no9498854qtd.0!news-out.google.com!w29ni94qtc.0!nntp.google.com!g89no9498845qtd.0!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 30 Dec 2019 07:44:35 -0800 (PST)
Complaints-To: groups-abuse@google.com
Injection-Info: google-groups.googlegroups.com; posting-host=46.9.10.14;
 posting-account=bPTmZAoAAAC_6HP9XLKB9aAAxBa6BuOR
NNTP-Posting-Host: 46.9.10.14
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <c50bce0f-f69a-4182-9813-a4909f7dbcd6@googlegroups.com>
Subject: Is this a bug?
From: reinert <reinkor@gmail.com>
Injection-Date: Mon, 30 Dec 2019 15:44:36 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader01.eternal-september.org comp.lang.ada:57773
Date: 2019-12-30T07:44:35-08:00
List-Id: <comp.lang.ada>

Hello,

assume the following Ada procedure:
------------------------------------------------------------------------------
with Text_IO;
procedure test1 is
package test_package is
 type rec1_t is tagged record
   a : integer := 2;  
-- b : integer := 2;
 end record;
 function a(x : rec1_t) return integer is (3);
 rec1 : rec1_t;
end test_package;
begin
  Text_IO.Put(" test_package.rec1: " & integer'image(test_package.rec1.a));
end test1;
-------------------------------------------------------------------------------

It gives (for mye computer): 

test_package.rec1:  2

If I change the statement 

"a : integer := 2;"

to

"b : integer := 2;"

then I get:

test_package.rec1:  3

Is this reasonable?  Bug?

reinert