sem_eval.adb: Give a more precise error message.

    gcc/ada/
	* sem_eval.adb: Give a more precise error message.

From-SVN: r152619

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index d5e34e9..13df4f3 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2009-10-10  Samuel Tardieu  <sam@rfc1149.net>
+
+       * sem_eval.adb: Give a more precise error message.
+
 2009-10-06  Samuel Tardieu  <sam@rfc1149.net>
 
        PR ada/41383

diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb
index 18853d7..6e06e83 100644 (file)
--- a/gcc/ada/sem_eval.adb
+++ b/gcc/ada/sem_eval.adb
@@ -5018,7 +5018,7 @@ package body Sem_Eval is
 
             if Attribute_Name (N) = Name_Size then
                Error_Msg_N
-                 ("size attribute is only static for scalar type " &
+                 ("size attribute is only static for static scalar type " &
                   "(RM 4.9(7,8))", N);
 
             --  Flag array cases