with Instrument;
use Instrument;
with Nullproc;

procedure Nulla1 is

    N : Integer := 3;

begin

    Start ("NULLA1", " NULL PROCEDURE; CALLED 10000 TIMES (CONTROL)");

    for Lcv in 1 .. 10000 loop
        --     NULLPROC;
        N := Ident_Int (N);
    end loop;
    Stop;
end Nulla1;