Tasks with discriminants

[Larry Coon <lmcoon@home.com>]

I've been playing with discriminants for tasks and I
can't get something to work.  I can declare a task
such as the following:

     task type t (task_no: integer);

And later create actual tasks:

     t1: t (1);
     t2: t (2);
     t3: t (3);   -- etc...

But if I want to declare an array of tasks, I
can't figure out how to supply values for the
discriminants:

     type task_array is array (1..3) of t;
     my_tasks: task_array;   -- ????

Can anybody tell me how the discriminants are
supplied in this case?  Thanks in advance.

Larry Coon
University of California
larry@assist.org
and lmcoom@home.com