gcc/testsuite/gnat.dg/task1_pkg.adb

package body Task1_Pkg is
   task body Typ_Task is
   begin
      loop
         null;
      end loop;
   end Typ_Task;

begin
   null;
end Task1_Pkg;