gcc/testsuite/gnat.dg/elab6_pkg.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

package body Elab6_Pkg is
   protected Prot_Obj is
      entry Ent;
   end Prot_Obj;

   procedure Call_Ent is
   begin
      Prot_Obj.Ent;
   end Call_Ent;

   protected body Prot_Obj is
      entry Ent when True is
      begin
         null;
      end Ent;
   end Prot_Obj;
end Elab6_Pkg;