gcc/testsuite/gnat.dg/rt_signals.adb

   1 --  { dg-do run }
   2
   3 --  This program used to fail with a runtime built with assertions
   4
   5 procedure RT_Signals is
   6    task Task_A;
   7
   8    task body Task_A is
   9    begin
  10       null;
  11    end Task_A;
  12 begin
  13    null;
  14 end RT_Signals;