1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Ada.Text_IO;        use Ada.Text_IO; 
  6. with Queue_Pack_Generic; 
  7.  
  8. procedure Queue_Test_Generic is 
  9.  
  10.    package Queue_Pack_Character is 
  11.       new Queue_Pack_Generic (Element => Character, Queue_Size => 20); 
  12.    use Queue_Pack_Character; 
  13.  
  14.    Queue : Queue_Type; 
  15.    Item  : Character; 
  16.  
  17. begin 
  18.    Enqueue (Item => 'x', Queue => Queue); 
  19.  
  20.    Dequeue (Item, Queue); Put (Item); 
  21.  
  22.    Dequeue (Item, Queue); -- will produce a 'Queue underflow' 
  23.    Put (Item); 
  24.  
  25.    Put ("Queue is empty on exit: "); Put (Boolean'Image (Is_Empty (Queue))); 
  26.  
  27. exception 
  28.    when Queueunderflow => Put ("Queue underflow"); 
  29.    when Queueoverflow  => Put ("Queue overflow"); 
  30. end Queue_Test_Generic;