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.2 required=5.0 tests=BAYES_00,FREEMAIL_FROM,
	FROM_STARTS_WITH_NUMS autolearn=no autolearn_force=no version=3.4.4
X-Received: by 2002:a24:75c2:: with SMTP id
 y185-v6mr5117585itc.35.1521421696593;
        Sun, 18 Mar 2018 18:08:16 -0700 (PDT)
X-Received: by 2002:a9d:53ca:: with SMTP id i10-v6mr289131oth.1.1521421696370;
 Sun, 18 Mar 2018 18:08:16 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.uzoreto.com!feeder.erje.net!2.us.feeder.erje.net!feeder.usenetexpress.com!feeder-in1.iad1.usenetexpress.com!border1.nntp.dca1.giganews.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!r195-v6no2130321itc.0!news-out.google.com!h73-v6ni4307itb.0!nntp.google.com!199-v6no734711itl.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Sun, 18 Mar 2018 18:08:16 -0700 (PDT)
In-Reply-To: <edf7b96a-f340-408c-994f-d5aa73b9f2db@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=85.240.210.31;
 posting-account=rhqvKAoAAABpikMmPHJSZh4400BboHwT
NNTP-Posting-Host: 85.240.210.31
References: <edf7b96a-f340-408c-994f-d5aa73b9f2db@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <aaf28d21-b025-4bad-87ed-a3bb1e45ec72@googlegroups.com>
Subject: Re: little precision about anonymous access types
From: Mehdi Saada <00120260a@gmail.com>
Injection-Date: Mon, 19 Mar 2018 01:08:16 +0000
Content-Type: text/plain; charset="UTF-8"
Xref: reader02.eternal-september.org comp.lang.ada:51061
Date: 2018-03-18T18:08:16-07:00
List-Id: <comp.lang.ada>

Also, why that:
procedure main is
   B: access INTEGER;
begin
   declare
      type A_TYPE is access INTEGER;
      A : A_TYPE := new INTEGER'(7);
   begin
      B := A;
   end;
end main;
is ILLEGAL (cannot convert local pointer to non-local access type) ? It seems that B's type's scope is LONGER than A_type's.

whereas that:
procedure main is
   type A_TYPE is access all INTEGER;
   A : A_TYPE;
begin
   declare
      B: access INTEGER := new INTEGER'(7);
   begin
      A := A_TYPE(B);
   end;
   if A.all > 8 then null; end if;
end main;
is legal (yet needs "all" for a reason unknown to me) ?
Since B dies before A, where does go B's memory content, so that A can still refer to it after the "end;" ?