with Instrument;
use Instrument;
procedure Multa2 is
    -- PRAGMA SUPPRESS (ACCESS_CHECK);
    -- PRAGMA SUPPRESS (DISCRIMINANT_CHECK);
    -- PRAGMA SUPPRESS (INDEX_CHECK);
    -- PRAGMA SUPPRESS (LENGTH_CHECK);
    -- PRAGMA SUPPRESS (RANGE_CHECK);
    -- PRAGMA SUPPRESS (DIVISION_CHECK);
    -- PRAGMA SUPPRESS (OVERFLOW_CHECK);
    -- PRAGMA SUPPRESS (STORAGE_CHECK);
    X : Float := 1.000_001;
    Y : Float := 1.0;

begin
    Start ("MULTA2", "100_000 floating pt. Multiplications (test)");
    for I in 1 .. 100 loop
        for J in 1 .. 100 loop
            Y := Y * X * X * X * X * X * X * X * X * X * X;
            Y := Float (Ident_Int (I + J));
        end loop;
    end loop;
    Stop;
end Multa2;