3 with Ada
.Text_Io
; use Ada
.Text_Io
;
8 entry Requeue_Without_Abort
;
12 Opened
: Boolean := False;
16 entry Requeue_Without_Abort
when True is
18 -- BUG: after this requeue no time out of the call should be possible
19 requeue Queue_Without
;
20 end Requeue_Without_Abort
;
22 entry Queue_Without
when Opened
is
33 -- Test of timed entry call to an entry with requeue without abort
35 task body T_Without
is
38 P
.Requeue_Without_Abort
;
45 when others => Put_Line
("failed");