summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gnat.dg/test_ai254.adb
blob: 18f6583725924b93a0679f1173a70cfc8d0550f1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
--  { dg-do compile }

procedure test_ai254 is
   function Func
      (Obj : not null access protected function (X : Float) return Float)
      return not null access protected function (X : Float) return Float is
   begin
      return null;
   end;
begin
   null;
end;