From: charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 29 Mar 2005 16:17:25 +0000 (+0000)
Subject: 2005-03-29  Robert Dewar  <dewar@adacore.com>
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=651597463775d688e0f2336e85f263e1931f7c6e;p=thirdparty%2Fgcc.git

2005-03-29  Robert Dewar  <dewar@adacore.com>

	* par-ch12.adb (P_Generic): Give better msg for illegal private generic
	child.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97177 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb
index 56ec4a15f39c..ae6b6cd48d57 100644
--- a/gcc/ada/par-ch12.adb
+++ b/gcc/ada/par-ch12.adb
@@ -153,7 +153,11 @@ package body Ch12 is
 
       Decl_Loop : loop
          P_Pragmas_Opt (Decls);
-         Ignore (Tok_Private);
+
+         if Token = Tok_Private then
+            Error_Msg_S ("generic private child packages not permitted");
+            Scan; -- past PRIVATE
+         end if;
 
          if Token = Tok_Use then
             Append (P_Use_Clause, Decls);