gcc/testsuite/gnat.dg/task4.adb

   1 --  { dg-do compile }
   2
   3 with System.Multiprocessors;
   4
   5 procedure Task4 is
   6
   7   task type Infinite_Loop (C : System.Multiprocessors.CPU_Range)
   8      with CPU => C;
   9
  10   task body Infinite_Loop is
  11   begin
  12      loop
  13         null;
  14      end loop;
  15   end Infinite_Loop;
  16
  17 begin
  18   null;
  19 end Task4;