--- par-ch10.adb.orig	Fri Jul 26 18:50:54 2002
+++ par-ch10.adb	Fri Jul 26 18:43:23 2002
@@ -408,6 +408,8 @@
          elsif Private_Sloc /= No_Location
            and then Nkind (Unit (Comp_Unit_Node)) /= N_Function_Instantiation
            and then Nkind (Unit (Comp_Unit_Node)) /= N_Procedure_Instantiation
+           and then Nkind (Unit (Comp_Unit_Node)) /=
+             N_Subprogram_Renaming_Declaration
          then
             Error_Msg ("cannot have private subprogram body", Private_Sloc);