2011-08-02 Pascal Obry <obry@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / sem_aggr.adb

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index 28193ef..d76c35f 100644 (file)
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -3173,7 +3173,7 @@ package body Sem_Aggr is
 
          if Present (Expressions (N)) then
             Check_Formal_Restriction
-              ("named association cannot follow positional association",
+              ("named association cannot follow positional one",
                First (Choices (First (Component_Associations (N)))));
          end if;