1 2 3 4 5 6 7
pragma Eliminate (Subp_Elim_Errors, Proc); package Subp_Elim_Errors is procedure Proc; end Subp_Elim_Errors;