gcc/testsuite/gnat.dg/discr36_pkg.adb

package body Discr36_Pkg is

  function Func return T is
    Ret : T;
    pragma Warnings (Off, Ret);
  begin
    return Ret;
  end;

end Discr36_Pkg;