11 lines
218 B
Ada
11 lines
218 B
Ada
|
with Task1_Pkg; use Task1_Pkg;
|
||
|
|
|
||
|
|
package Task1 is
|
||
|
|
TAB : constant Typ_Task_Par_Tab := (others => (Dummy => FALSE));
|
||
|
|
|
||
|
|
T1 : Typ_Task (TAB (1).Dummy);
|
||
|
|
T2 : Typ_Task (TAB (2).Dummy);
|
||
|
|
|
||
|
|
procedure Dummy;
|
||
|
|
end Task1;
|