-- { dg-do compile } package body task_name is task body Task_Object is begin null; end Task_Object; end;