1 2 3 4 5 6 7 8
-- { dg-do compile } package body task_name is task body Task_Object is begin null; end Task_Object; end;