gcc-4.9/gcc/testsuite/gnat.dg/discr36_pkg.adb


1
2
3
4
5
6
7
8
9
10

package body Discr36_Pkg is

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

end Discr36_Pkg;