gcc/testsuite/gnat.dg/task1.ads


1
2
3
4
5
6
7
8
9
10

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;