[Ada] Guard against leading and trailing spaces reappearing in errors

gcc/ada/

	* errout.adb (Error_Msg_Internal): Add assertion to prevent
	style mistakes reappearing in the future.

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index 2c050528898676939ad8181a48a86e86cc4809b2..3541a77233058ce1b06f195cde1594f3c3e46a1a 100644 (file)
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -952,6 +952,11 @@ package body Errout is
    --  Start of processing for Error_Msg_Internal
 
    begin
+      --  Detect common mistake of prefixing or suffing the message with a
+      --  space character.
+
+      pragma Assert (Msg (Msg'First) /= ' ' and then Msg (Msg'Last) /= ' ');
+
       if Raise_Exception_On_Error /= 0 then
          raise Error_Msg_Exception;
       end if;