blob: 1ab24a53c6d1d2a3d95f598697d6a287cce7ca7d [file] [log] [blame]
-- { 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;