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
Path: 
 eternal-september.org!reader01.eternal-september.org!feeder.eternal-september.org!news.uzoreto.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: hreba <f_hreba@yahoo.com.br>
Newsgroups: comp.lang.ada
Subject: Re: How can one record component be local and another not?
Date: Tue, 5 May 2020 19:32:52 +0200
Message-ID: <hhdma5Fitq9U1@mid.individual.net>
References: <hhcvilFe4qrU1@mid.individual.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
X-Trace: individual.net TAq/8qBk1DG0FSajlL7V0glpRZ1/n15jEDjDmdSBwmiLBkTU6H
Cancel-Lock: sha1:/uS+pgWZwCZdKO4e8vOUSnu4XRg=
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:68.0) Gecko/20100101
 Thunderbird/68.7.0
In-Reply-To: <hhcvilFe4qrU1@mid.individual.net>
Content-Language: en-US
Xref: reader01.eternal-september.org comp.lang.ada:58602
Date: 2020-05-05T19:32:52+02:00
List-Id: <comp.lang.ada>

Ok, with all your hints I came to the following solution:

--
package Aux is
    type Integer_P is access all Integer;
    type Rec is limited record
       a: aliased Integer;
       p: Integer_P;
    end record;

    procedure Init (r: access Rec);
end Aux;
--
package body Aux is
    procedure Init (r: access Rec) is
    begin
       r.p:= r.a'Access;
    end Init;
end Aux;
--
with Aux;
procedure Test is
    r:	aliased Aux.Rec;
begin
    Aux.Init (r'Access);
end Test;
--

It compiles nicely, and then:

frank@pc-frank:~/Temp/Test0$ ./test
raised PROGRAM_ERROR : aux.adb:4 accessibility check failed

#@!!0ßx*~@!!!
-- 
Frank Hrebabetzky, Kronach	+49 / 9261 / 950 0565