Sign in
gnu
/
gcc
/
a6d3012b274f38b20e2a57162106f625746af6c6
/
.
/
gcc
/
testsuite
/
gnat.dg
/
show_deques_priority.adb
blob: 614e825a957919a4e5f1482f95752093430d4876 [
file
] [
log
] [
blame
]
--
{
dg
-
do
compile
}
with
Deques
;
procedure
Show_Deques_Priority
is
use
Deques
;
PD
:
aliased P_Deque
:=
Create
;
begin
PD
.
Pop
;
end
Show_Deques_Priority
;