gcc/testsuite/gnat.dg/access_func.adb

   1 -- { dg-do compile }
   2
   3 procedure access_func is
   4     type Abomination is access
   5        function (X : Integer) return access
   6        function (Y : Float) return access
   7        function return Integer;
   8 begin
   9     null;
  10 end;