gcc/testsuite/gnat.dg/discr36_pkg.adb

   1 package body Discr36_Pkg is
   2
   3   function Func return T is
   4     Ret : T;
   5     pragma Warnings (Off, Ret);
   6   begin
   7     return Ret;
   8   end;
   9
  10 end Discr36_Pkg;