Chip 1995 March/CHIP3.mdf/programm/prog2/adderstb.ada

Text File | 1991-07-01 | 475 b | 17 lines

                                       -- Chapter 15 - Program 5
separate(Adder3)
                 -- Implementation of AdderStb
package body AdderStb 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 AdderStb;