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;
cHJvY2VkdXJlIG1haW4gaXMKCXRhc2sgdHlwZSBYIGlzCiAJCWVudHJ5IG15RW50cnkoYXJncyk7CiAJZW5kIFg7Cgl0YXNrIGJvZHkgWCBpcwoJYmVnaW4KCQludWxsOwoJZW5kIFg7CgkKCXRhc2sgdHlwZSBZOwoJdGFzayBib2R5IFkgaXMKCQlteVggOiBYOwoJYmVnaW4KCQludWxsOwoJZW5kIFk7CgkKCW15WSA6IFk7CgkKCXRhc2sgWjsKCXRhc2sgYm9keSBaIGlzCgliZWdpbgoJCVkubXlYLm15RW50cnkoKTsgLS1FUlJPUjogbm8gc2VsZWN0b3IgbXlYIGZvciBZIHR5cGUKCWVuZCBaOwpiZWdpbgoJbnVsbDsKZW5kIG1haW47Cgk=