gcc/testsuite/gnat.dg/specs/renaming2_pkg4.adb


1
2
3
4
5
6
7
8
9
10
11
12

package body Renaming2_Pkg4 is

  package body Inner is

      function Next_Value return Value_T is
        Next_Value : Value_T renames Value (Next);
      begin
        return Next_Value;
      end Next_Value;

  end Inner;
end Renaming2_Pkg4;