From: Gary Dismukes <dismukes@adacore.com>
Date: Tue, 16 Jun 2020 20:08:34 +0000 (-0400)
Subject: [Ada] AI12-0194: Language-defined aspects and entry bodies
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=26ac7446f607b1b031bbd38fab28265fd772f8a5;p=gcc.git

[Ada] AI12-0194: Language-defined aspects and entry bodies

gcc/ada/

	* sem_prag.adb (Analyze_Pragma, Pragma_Max_Entry_Queue_Length):
	Refine error message to indicate that the pragma must apply to
	an entry declaration, not just an entry.
---

diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index f7019caebea..a8f89876702 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -19452,7 +19452,8 @@ package body Sem_Prag is
             --  Otherwise the pragma is associated with an illegal construct
 
             else
-               Error_Pragma ("pragma % must apply to a protected entry");
+               Error_Pragma
+                 ("pragma % must apply to a protected entry declaration");
                return;
             end if;