Re: Strange warning message

[reinert <reinkor@gmail.com>]

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;