1--  { dg-do compile }
2
3procedure Prot4 is
4   type App_Priority is (Low, Medium, High);
5
6   function Alpha return App_Priority is
7   begin
8      return Low;
9   end Alpha;
10
11   function Beta return App_Priority is
12   begin
13      return High;
14   end Beta;
15
16   protected Hold is
17      entry D7 (App_Priority range Alpha .. Beta);
18   end Hold;
19
20   protected body Hold is
21      entry D7 (for AP in App_Priority range Alpha .. Beta) when True is
22      begin
23         null;
24      end D7;
25   end Hold;
26begin
27   null;
28end;
29