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

with Instrument;
use Instrument;

procedure Vfada1 is

    Vector_Size : constant Positive := 1000;

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

    V1, V2 : Vector := (others => 0.000_001);
    Vector_Result : Vector := (others => 0.0);

begin
    Start ("VFADA1", "Vector floating pt. 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) := Float (Ident_Int (N));
        end loop;

    end loop;
    Stop;

end Vfada1;