gcc/testsuite/gnat.dg/prot4.adb

   1 --  { dg-do compile }
   2
   3 procedure 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;
  26 begin
  27    null;
  28 end;