--### INSTANTIATE A CHARACTER QUEUE AND TEST FOR EMPTY USING X0QUE PKG.
with Instrument, X0que;
use Instrument;

procedure Mtcqa2 is

    package Cqueue is new X0que (50, Character);

    use Cqueue;

    Q : Queue;

begin

    Start ("MTCQA2", "INSTANTIATE A CHARACTER QUEUE AND TEST FOR EMPTY");
    for I in 1 .. 10000 loop

        Make_Empty (Q);

        if Is_Not_Empty (Q) then

            Comment ("EITHER MAKE_EMPTY OR IS_NOT_EMPTY FAILED.");

        end if;

        if not Is_Empty (Q) then

            Comment ("EITHER MAKE_EMPTY OR IS_EMPTY FAILED.");

        end if;
    end loop;

    Stop;

end Mtcqa2;