gcc/testsuite/gnat.dg/task1.adb

--  { dg-do assemble }

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