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


1
2
3
4
5
6
7
8

package body Opt25_Pkg2 is

   function Default_Stack return Stack is
   begin
      return Default_Stack_Var;
   end Default_Stack;

end Opt25_Pkg2;