pragma Eliminate (Subp_Elim_Errors, Proc);
package Subp_Elim_Errors is
procedure Proc;
end Subp_Elim_Errors;