10 lines
176 B
Ada
10 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;
|