--  { dg-do assemble }

package body Task1 is
   procedure Dummy is null;
end Task1;