Commit 9b1b8df2 by Arnaud Charlet

Removed, causes resource issues on some environments.

From-SVN: r133750
parent 550386ad
-- { 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;
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment