gcc/testsuite/gnat.dg/inline21_h.adb

package body Inline21_H is

   package body Nested_G is

      C : constant Integer := 0;

      procedure Proc is
      begin
         null;
      end;

   end Nested_G;

end Inline21_H;