[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 4ad9092bd3a9be879e0a0b8407094bf86bf71ba0..9e271acd00e00c70ebfd2909b5b5304c392bbf80 100644 (file)
--- 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 0cd8e083899985807e71badf5ab1d248254ec27b..e84229348f3cc34be1c48f8de5d111bc0225f254 100644 (file)
--- 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;