PR debug/66535
[official-gcc.git] / gcc / testsuite / gnat.dg / deferred_const4.adb
blob46f21103ae5eea47a968d8d7eebe347f80883125
1 -- { dg-do compile }
3 package body Deferred_Const4 is
5 function F return My_Q.T is
6 R : My_Q.T;
7 begin
8 R := My_Q.Null_T;
9 return R;
10 end;
12 end Deferred_Const4;