URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [requeue1.adb] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
-- { dg-do run } with Ada.Text_Io; use Ada.Text_Io; procedure requeue1 is protected P is entry Requeue_Without_Abort; entry Queue_Without; procedure Open; private Opened: Boolean := False; end P; protected body P is entry Requeue_Without_Abort when True is begin -- BUG: after this requeue no time out of the call should be possible requeue Queue_Without; end Requeue_Without_Abort; entry Queue_Without when Opened is begin Opened := False; end Queue_Without; procedure Open is begin Opened := True; end Open; end P; -- Test of timed entry call to an entry with requeue without abort task T_Without; task body T_Without is begin select P.Requeue_Without_Abort; or delay 1.0; Put_Line("failed"); end select; exception when others => Put_Line ("failed"); end T_Without; begin delay 3.0; P.Open; end;
Go to most recent revision | Compare with Previous | Blame | View Log