with Queue_Pack_Simple; use Queue_Pack_Simple; procedure Queue_Test_Simple is Queue : Queue_Type; Item : Element; begin Enqueue (2000, Queue); Dequeue (Item, Queue); Dequeue (Item, Queue); -- will not produce an exception! end Queue_Test_Simple;