with Instrument;
use Instrument;
with Nullproc;

procedure Nulla2 is

    N : Integer := 3;

begin

    Start ("NULLA2", " NULL PROCEDURE; CALLED 10000 TIMES");

    for Lcv in 1 .. 10000 loop
        Nullproc;
        N := Ident_Int (N);
    end loop;
    Stop;
end Nulla2;