procedure main is
task type X is
entry myEntry(args);
end X;
task body X is
begin
null;
end X;
task type Y;
task body Y is
myX : X;
begin
null;
end Y;
myY : Y;
task Z;
task body Z is
begin
Y.myX.myEntry(); --ERROR: no selector myX for Y type
end Z;
begin
null;
end main;