with Except_Pack_4;
use Except_Pack_4;
with Remote_Global;
use Remote_Global; -- control optimization
with Iteration; -- obtain stable measurement
with Piwg_Io; -- output results

procedure E000004 is  -- main procedure to execute

    Cpu_Time : Duration; -- CPU time for one feature execution
    Wall_Time : Duration; -- WALL time for one feature execution
    Check_Times : constant := 100; -- inside loop count and check
    Iteration_Count : Integer; -- set and varied by ITERATION package
    Stable : Boolean; -- true when measurement stable

begin

    Iteration.Start_Control;  -- dummy to bring in pages on some machines

    delay 0.5;  -- wait for stable enviornment on some machines

    Iteration.Initialize (Iteration_Count);

    loop  -- until stable measurement, ITERATION_COUNT increases each time

--
-- Control loop
--
        if A_One = 2 then
            Switch := True;
        else
            Switch := False;
        end if;

        Iteration.Start_Control;
        for J in 1 .. Iteration_Count loop
            Global := 0;
            for Inside_Loop in 1 .. Check_Times loop
--                     this has control global increment and call inside
                begin
                    Proc_4 (Switch);
                exception
                    when My_Exception =>
                        null;
                end;
            end loop;
        end loop;
        Iteration.Stop_Control (Global, Check_Times);


--
-- Test loop
--
-- establish exception raise and handle time

        if A_One = 1 then
            Switch := True;
        else
            Switch := False;
        end if;

        Iteration.Start_Test;
        for J in 1 .. Iteration_Count loop
            Global := 0;
            for Inside_Loop in 1 .. Check_Times loop
--                     this has control global increment and call inside
                begin
                    Proc_4 (Switch);
                exception
                    when My_Exception =>
                        null;
                end;
            end loop;
        end loop;
        Iteration.Stop_Test (Global, Check_Times);
        Iteration.Test_Stable (Iteration_Count, Stable);
        exit when Stable;
    end loop;
--
    Iteration.Feature_Times (Cpu_Time, Wall_Time);

--
-- Printout
--
    Piwg_Io.Piwg_Output ("E000004", "Exception", Cpu_Time,
                         Wall_Time, Iteration_Count,
                         " Exception raise and handle timing measurement ",
                         " when exception is nested 4 deep in procedures", " ");
end E000004;