gcc/testsuite/gnat.dg/task1.ads

   1 with Task1_Pkg; use Task1_Pkg;
   2
   3 package Task1 is
   4    TAB : constant Typ_Task_Par_Tab := (others => (Dummy => FALSE));
   5
   6    T1 : Typ_Task (TAB (1).Dummy);
   7    T2 : Typ_Task (TAB (2).Dummy);
   8
   9    procedure Dummy;
  10 end Task1;