--  { dg-do run }
--  This program used to fail with a runtime built with assertions
procedure RT_Signals is
   task Task_A;
   task body Task_A is
   begin
      null;
   end Task_A;
begin
   null;
end RT_Signals;
--  { dg-do run }
--  This program used to fail with a runtime built with assertions
procedure RT_Signals is
   task Task_A;
   task body Task_A is
   begin
      null;
   end Task_A;
begin
   null;
end RT_Signals;