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