Strange warning message

[reinert <reinkor@gmail.com>]

Hei there,

when I compile the enclosed program with option "-gnatwa" (i.e. "gnatmake -gnatwa test1k.adb", I get the following annoying warning: 

"warning: useless assignment to "test1", value never referenced"

I use debian, updated (gnat-6 6.3.0-18). Do others out there get the same warning when compiling the test program below? Is there a bug to blame in my version of the compiler? Just to relax - or it seems I do something bad? :-)

Here is the program:
-----------------------------------------------------------------
with Text_IO;
procedure test1k is

  task type test1_t;

  task body test1_t is
  begin
    Text_IO.Put_Line("Hello there!");
  end test1_t;

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

begin

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

-- Commenting out this statement makes the warning disapipear:
  test1(1) := new test1_t;

end test1k;
-------------------------------------------------------------------

I here make the array "test1" only to illustrate (it can serve as an ugly trick to get rid of the warning message).

reinert
https://korsnesbiocomputing.no/