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

with Instrument;
use Instrument;

procedure Viada1 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 ("VIADA1", "Vector integer addition (control)");

    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 Viada1;