gcc/ada/

	* sem_eval.adb: Give a more precise error message.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@152619 138bc75d-0d04-0410-961f-82ee72b054a4

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