--
-- This program measures the time required for the adding of the
-- elements of a large integer vector
--

with Instrument;
use Instrument;

procedure Viada2 is

    Vector_Size : constant Positive := 1000;

    type Vector is array (1 .. Vector_Size) of Integer;

    V1, V2 : Vector := (others => 1);
    Vector_Result : Vector := (others => 0);

begin
    Start ("VIADA2", "Vector integer addition (test)");

    for I in 1 .. 1000 loop

        -- Add vector elements
        for N in Vector'Range loop
            Vector_Result (N) := V1 (N) +
                                    V2 (N);     -- included in test version
            Vector_Result (N) := Ident_Int (N);
        end loop;

    end loop;
    Stop;

end Viada2;