package body Loc_Executable_Statements is

    procedure Change (Number_Of_Executable_Statements : in out Count;
                      With_Delta : in Positive := 1) is
    begin
        -- Change

        Number_Of_Executable_Statements :=
           Number_Of_Executable_Statements + Count (With_Delta);

    end Change;

end Loc_Executable_Statements;