blob: 46f21103ae5eea47a968d8d7eebe347f80883125 [file] [log] [blame]
-- { dg-do compile }
package body Deferred_Const4 is
function F return My_Q.T is
R : My_Q.T;
begin
R := My_Q.Null_T;
return R;
end;
end Deferred_Const4;