From: Justin Squirek <squirek@adacore.com>
Date: Thu, 12 Dec 2019 10:02:32 +0000 (+0000)
Subject: [Ada] Missing error on incorrect use of Result attribute
X-Git-Tag: misc/cutover-git~529
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c171199011ac0d37df67ff99ea7286fa3455efcf;p=thirdparty%2Fgcc.git

[Ada] Missing error on incorrect use of Result attribute

2019-12-12  Justin Squirek  <squirek@adacore.com>

gcc/ada/

	* sem_attr.adb (Analyze_Attribute): Add error message for
	invalid usage of Attribute_Result.

From-SVN: r279288
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 4ad9092bd3a9..9e271acd00e0 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2019-12-12  Justin Squirek  <squirek@adacore.com>
+
+	* sem_attr.adb (Analyze_Attribute): Add error message for
+	invalid usage of Attribute_Result.
+
 2019-12-12  Bob Duff  <duff@adacore.com>
 
 	* sem_attr.adb (Eval_Attribute): Never mark T'Descriptor_Size as
diff --git a/gcc/ada/sem_attr.adb b/gcc/ada/sem_attr.adb
index 0cd8e0838999..e84229348f3c 100644
--- a/gcc/ada/sem_attr.adb
+++ b/gcc/ada/sem_attr.adb
@@ -5414,6 +5414,7 @@ package body Sem_Attr is
             Spec_Id := Entity (P);
 
          elsif not Legal then
+            Error_Attr ("prefix of % attribute must be a function", P);
             return;
          end if;