11 lines
176 B
Ada
11 lines
176 B
Ada
|
task body Some_Task is
|
||
|
|
begin
|
||
|
|
loop
|
||
|
|
select
|
||
|
|
-- Some alternatives
|
||
|
|
...
|
||
|
|
or terminate; -- We are through
|
||
|
|
end select
|
||
|
|
end loop;
|
||
|
|
end Some_Task;
|