|
with Ada.Text_IO; use Ada.Text_IO;
|
|
|
|
procedure Test_Events is
|
|
-- Place the event implementation here
|
|
X : Event;
|
|
|
|
task A;
|
|
task body A is
|
|
begin
|
|
Put_Line ("A is waiting for X");
|
|
X.Wait;
|
|
Put_Line ("A received X");
|
|
end A;
|
|
begin
|
|
delay 1.0;
|
|
Put_Line ("Signal X");
|
|
X.Signal;
|
|
end Test_Events;
|