gcc/testsuite/gnat.dg/task1.ads

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;