1 2 3 4 5 6 7 8 9 10 11
-- { dg-do compile } with Deques; procedure Show_Deques_Priority is use Deques; PD : aliased P_Deque := Create; begin PD.Pop; end Show_Deques_Priority;