Re: Tasking troubles, unexpected termination.

[Shark8 <onewingedshark@gmail.com>]

The following edit gives expected behavior:
--------------------------------------------------------------
    For Index in 1..10 loop
	declare
	    Use Ada.Calendar;
	    Function Alert Return Ada.Calendar.Time is
		( Now + Duration(1.5*Index) );
            -- Removed Item declaration in favor of building in-place.
	begin
	    K.Add( Event => New Notification'(
			 Message => + ("DD"&Positive'Image(Index)),
			 -- Expire at Now and 3*Index seconds.
			 Expiry  => New Time'( Alert )
			)
	  );
	end;
    end loop;
--------------------------------------------------------------
Though this raises the question of why the other behavior is executed with:
	    Item  : Notification:=
	      Notification'(
			 Message => + ("DD"&Positive'Image(Index)),
			 -- Expire at Now and 3*Index seconds.
			 Expiry  => New Time'( Alert )
			);
            [...]
	    K.Add( Event => New Notification'(Item) );