-- Chapter 15 - Program 1

                 -- Interface of AdderPkg
package AdderPkg is
   type MY_ARRAY is array(INTEGER range <>) of FLOAT;
   procedure Add_Em_Up(In_Dat : in     MY_ARRAY;
                       Sum    :    out FLOAT);
end AdderPkg;


                 -- Implementation of AdderPkg
package body AdderPkg is
   procedure Add_Em_Up(In_Dat : in     MY_ARRAY;
                       Sum    :    out FLOAT) is
   Total : FLOAT;
   begin
      Total := 0.0;
      for Index in In_Dat'FIRST..In_Dat'LAST loop
         Total := Total + In_Dat(Index);
      end loop;
      Sum := Total;
   end Add_Em_Up;
end AdderPkg;




-- Result of execution

-- (This is not a stand alone package, so it has no output.)