4 files changed, 31 insertions, 0 deletions
diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index 9a155b9..9acf193 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -3883,6 +3883,7 @@ package body Sem_Ch12 is
          Renaming_In_Par :=
            Make_Defining_Identifier (Loc, Chars (Gen_Unit));
          Mutate_Ekind (Renaming_In_Par, E_Package);
+         Set_Is_Internal (Renaming_In_Par);
          Set_Is_Not_Self_Hidden (Renaming_In_Par);
          Set_Etype (Renaming_In_Par, Standard_Void_Type);
          Set_Scope (Renaming_In_Par, Parent_Instance);
diff --git a/gcc/testsuite/gnat.dg/specs/generic_inst5.ads b/gcc/testsuite/gnat.dg/specs/generic_inst5.ads
new file mode 100644
index 0000000..d3d0b2a
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/generic_inst5.ads
@@ -0,0 +1,14 @@
+-- { dg-do compile }
+
+with Ada.Containers.Ordered_Sets;
+with Generic_Inst5_Pkg1;
+with Generic_Inst5_Pkg2;
+
+package Generic_Inst5 is
+
+   package Charsets is new Ada.Containers.Ordered_sets (Character);
+   package P1 is new Generic_Inst5_Pkg1 (Charsets);
+   package P1_N is new P1.Nested;
+   package P2 is new Generic_Inst5_Pkg2 (P1, P1_N);
+
+end Generic_Inst5;
diff --git a/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg1.ads b/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg1.ads
new file mode 100644
index 0000000..da599b0
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg1.ads
@@ -0,0 +1,9 @@
+with Ada.Containers.Ordered_Sets;
+
+generic
+   with package Sets is new Ada.Containers.Ordered_Sets (<>);
+package Generic_Inst5_Pkg1 is
+   generic
+   package Nested is
+   end Nested;
+end Generic_Inst5_Pkg1;
diff --git a/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg2.ads b/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg2.ads
new file mode 100644
index 0000000..2f5df87
--- /dev/null
+++ b/gcc/testsuite/gnat.dg/specs/generic_inst5_pkg2.ads
@@ -0,0 +1,7 @@
+with Generic_Inst5_Pkg1;
+
+generic
+   with package P1 is new Generic_Inst5_Pkg1 (<>);
+   with package P1_N is new P1.Nested;
+package Generic_Inst5_Pkg2 is
+end Generic_Inst5_Pkg2;