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");