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 10.36.189.131 with SMTP id x125mr15221558ite.37.1511783563221;
        Mon, 27 Nov 2017 03:52:43 -0800 (PST)
X-Received: by 10.157.51.145 with SMTP id u17mr1672697otc.7.1511783563104;
 Mon, 27 Nov 2017 03:52:43 -0800 (PST)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!feeder.eternal-september.org!news.unit0.net!peer02.am4!peer.am4.highwinds-media.com!peer01.iad!feed-me.highwinds-media.com!news.highwinds-media.com!border1.nntp.dca1.giganews.com!nntp.giganews.com!i6no7352804itb.0!news-out.google.com!193ni4458iti.0!nntp.google.com!193no942775itr.0!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Mon, 27 Nov 2017 03:52:42 -0800 (PST)
In-Reply-To: <19ca49f7-fa8c-49d9-a4b8-8a77546ef3b5@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=85.167.214.186;
 posting-account=bPTmZAoAAAC_6HP9XLKB9aAAxBa6BuOR
NNTP-Posting-Host: 85.167.214.186
References: <7c246c12-77f6-45c9-a05a-9afe934df332@googlegroups.com>
 <ovgq61$cu4$1@dont-email.me>
 <19ca49f7-fa8c-49d9-a4b8-8a77546ef3b5@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <e9fb14c9-336e-4e9e-affd-9cfc5acfe137@googlegroups.com>
Subject: Re: Strange warning message
From: reinert <reinkor@gmail.com>
Injection-Date: Mon, 27 Nov 2017 11:52:43 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Body-CRC: 2169133039
X-Received-Bytes: 2082
Xref: reader02.eternal-september.org comp.lang.ada:49185
Date: 2017-11-27T03:52:42-08:00
List-Id: <comp.lang.ada>

For the sake of order, I here post an update of the original test program (above). Making an "empty" entry and a reference to it, makes warnings to disappear:

with Text_IO;
procedure test1m is

  task type test1_t is
    entry run1;
  end test1_t;

  task body test1_t is
  begin
    select
      accept run1 do
        null;
      end run1;
      Text_IO.Put_Line("Hello there!");
      delay 5.0;
    or terminate;
    end select;
  end test1_t;

  test1 : array(1..1) of access test1_t;

begin

  for e of test1 loop
      e := new test1_t;
      e.run1;
  end loop;

  test1(1) := new test1_t;
  test1(1).run1;

  Text_IO.Put_Line(" Here we go ");

end test1m;