blob: 8908915248b45a301483b99f4a0d8b538a9b672f [file] [log] [blame]
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;