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=unavailable autolearn_force=no version=3.4.4 Path: eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail From: =?UTF-8?B?TWFya3VzIFNjaMO2cGZsaW4=?= Newsgroups: comp.lang.ada Subject: Unexpected discriminant check failure involving access types Date: Mon, 10 Aug 2015 14:38:22 +0200 Organization: Aioe.org NNTP Server Message-ID: NNTP-Posting-Host: MdpKeRr+sx3LK7JQiK5aNw.user.speranza.aioe.org Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit X-Complaints-To: abuse@aioe.org User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64; rv:31.0) Gecko/20100101 Thunderbird/31.7.0 X-Notice: Filtered by postfilter v. 0.8.2 Xref: news.eternal-september.org comp.lang.ada:27402 Date: 2015-08-10T14:38:22+02:00 List-Id: Given the following piece of code: ---%<--- 1 procedure TEST 2 is 3 type T is (T1, T2); 4 5 type RECORD_T (X : T := T1) is record 6 null; 7 end record; 8 9 type PTR_T is access RECORD_T; 10 11 FOO : RECORD_T; 12 FOO_PTR : constant PTR_T := new RECORD_T; 13 14 FOO1 : constant RECORD_T := (X => T1); 15 FOO2 : constant RECORD_T := (X => T2); 16 begin 17 FOO := FOO1; 18 FOO := FOO2; 19 20 FOO_PTR.all := FOO1; 21 FOO_PTR.all := FOO2; 22 end; --->%--- When compiled and executed, I get: > ./test raised CONSTRAINT_ERROR : test.adb:21 discriminant check failed Can anyone please explain me why I get a discriminant check error when using access types? I would have expected it to work the same as for the non-access case. TIA, Markus