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 d5e34e916ad138ae66ac216374858011d6684b90..13df4f3a704253fdc158dc977598886054113895 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 18853d727297b7f76d526eb9fe50967469bae45f..6e06e8353ae1c9747eee3e993ccb84d29df74755 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