gcc/testsuite/gnat.dg/specs/access3.ads

   1 --  { dg-do compile }
   2
   3 package access3 is
   4    type TF is access function return access procedure (P1 : Integer);
   5
   6    type TAF is access protected function return access procedure (P1 : Integer);
   7
   8    type TAF2 is access
   9      function return access protected procedure (P1 : Integer);
  10
  11    type TAF3 is access
  12      protected function return access protected procedure (P1 : Integer);
  13
  14    type TAF_Inf is
  15       access protected function return
  16          access function return
  17          access function return
  18          access function return
  19          access function return
  20          access function return
  21          access function return
  22          access function return
  23          access function return
  24       Integer;
  25 end access3;