blob: 1a6a4d21d8db06369c8a2b0d418bdee0024df712 [file] [log] [blame]
-- { dg-do compile }
procedure Discr_Test is
procedure P is begin null; end P;
task type Tsk1 is
entry rvT;
end Tsk1;
task body Tsk1 is
begin
accept rvT;
end Tsk1;
task type Tsk2 (pS : not null access procedure) is
entry rvT;
end Tsk2;
task body Tsk2 is
tskT : Tsk1;
begin
accept rvT do
requeue tskT.rvT;
end rvT;
pS.all;
end;
Obj : Tsk2 (P'access);
begin
Obj.rvT;
end;