From: Robert Dewar <dewar@adacore.com>
Date: Tue, 29 Mar 2005 16:17:25 +0000 (+0200)
Subject: par-ch12.adb (P_Generic): Give better msg for illegal private generic child.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a276fddfdbbadaa200dabbd006e308a14377f484;p=gcc.git

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

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

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

From-SVN: r97177
---

diff --git a/gcc/ada/par-ch12.adb b/gcc/ada/par-ch12.adb
index 56ec4a15f39..ae6b6cd48d5 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);