2010-10-26 Matthew Heaney <heaney@adacore.com>

[thirdparty/gcc.git] / gcc / ada / sem_warn.adb

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 189750af2d52b052c7bae803211804fbc5317fa3..209ddfd571b6ac2ac098d24a29494877732997a1 100644 (file)
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -3797,9 +3797,10 @@ package body Sem_Warn is
                            end if;
 
                         else
+                           Error_Msg_Node_2 := Form;
                            Error_Msg_FE
-                             ("writable actual overlaps with actual for&?",
-                              Act1, Form);
+                             ("writable actual for & overlaps with"
+                               & " actual for&?", Act1, Form1);
                         end if;
                      end;
                   end if;