gcc/testsuite/gnat.dg/entry_queues3.adb

   1 -- { dg-do compile }
   2
   3 procedure Entry_Queues3 is
   4
   5   generic
   6     type Large_Range is range <>;
   7   package Queue is
   8   end;
   9
  10   package body Queue is
  11     task T is
  12       entry E(Large_Range);
  13     end T ;
  14
  15     task body T is
  16       begin
  17         accept E(Large_Range'First) do
  18           null;
  19         end e ;
  20       end T ;
  21   end Queue;
  22
  23   type Large_Range is range 0 .. Long_Integer'Last;
  24
  25   package My_Queue is new Queue(Large_Range); -- { dg-warning "warning" }
  26
  27 begin
  28   null;
  29 end;