1-- { dg-do compile }
2
3package body Deferred_Const4 is
4
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;
11
12end Deferred_Const4;
13