1package body Elab6_Pkg is 2 protected Prot_Obj is 3 entry Ent; 4 end Prot_Obj; 5 6 procedure Call_Ent is 7 begin 8 Prot_Obj.Ent; 9 end Call_Ent; 10 11 protected body Prot_Obj is 12 entry Ent when True is 13 begin 14 null; 15 end Ent; 16 end Prot_Obj; 17end Elab6_Pkg; 18