--
-- File Name: task_test.2.ada
--

package body Task_Test is
    task body T1 is
    begin
	accept E1 do
	    accept E2;
	end E1;

	accept E1;

	begin
	    accept E2 do
		begin
		    accept E1;
		end;
	    end E2;
	end;
    exception
	when others =>
	    accept E1;
    end T1;


    task body T2 is separate;

end Task_Test;