gcc/testsuite/gnat.dg/bip_exception.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

--  { dg-do compile }
--  { dg-options "-gnatwa" }

package body BIP_Exception is
   package body Constructors is
      function Initialize return T_C4_Scheduler is
      begin
         return T_C4_Scheduler'(T_Super with null record);
      end Initialize;
   end Constructors;

   overriding procedure V_Run (This : in T_C4_Scheduler) is
      pragma Unreferenced (This);
   begin
      null;
   end V_Run;
end BIP_Exception;