Removed, causes resource issues on some environments.

From-SVN: r133750
This commit is contained in:
Arnaud Charlet 2008-03-31 13:02:18 +02:00
parent 550386ada7
commit 9b1b8df212

View file

@ -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;