package body Loc_Data_Declarations is

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

        Number_Of_Data_Declarations :=
           Number_Of_Data_Declarations + Count (With_Delta);

    end Change;

end Loc_Data_Declarations;