PR debug/66535
[official-gcc.git] / gcc / testsuite / gnat.dg / test_ai254.adb
blob18f6583725924b93a0679f1173a70cfc8d0550f1
1 -- { dg-do compile }
3 procedure test_ai254 is
4 function Func
5 (Obj : not null access protected function (X : Float) return Float)
6 return not null access protected function (X : Float) return Float is
7 begin
8 return null;
9 end;
10 begin
11 null;
12 end;