Removed, causes resource issues on some environments.
From-SVN: r133750
This commit is contained in:
parent
550386ada7
commit
9b1b8df212
1 changed files with 0 additions and 25 deletions
|
@ -1,25 +0,0 @@
|
|||
-- { dg-do run }
|
||||
|
||||
procedure too_many_tasks is
|
||||
Global : Natural := 0;
|
||||
function Output return Integer is
|
||||
begin
|
||||
Global := Global + 1;
|
||||
return Global;
|
||||
end Output;
|
||||
|
||||
task type A;
|
||||
task type B;
|
||||
|
||||
task body A is
|
||||
I : Integer := Output;
|
||||
T : B;
|
||||
begin null; end A;
|
||||
|
||||
task body B is
|
||||
I : Integer := Output;
|
||||
T : A;
|
||||
begin null; end B;
|
||||
|
||||
T : A;
|
||||
begin null; end;
|
Loading…
Add table
Reference in a new issue