On illegal code like:

   type T is new Positive in range 1..5;

the compiler was emitting message:

  error: extra "in"ignored
                  ^^

which lacked a space character.

A tiny diagnostic improvement; spotted while mistakenly typing an
illegal test.

Tested on x86_64-pc-linux-gnu, committed on trunk

gcc/ada/

        * par-util.adb (Ignore): Add missing space to message string.
diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb
--- a/gcc/ada/par-util.adb
+++ b/gcc/ada/par-util.adb
@@ -462,7 +462,7 @@ package body Util is
             declare
                Tname : constant String := Token_Type'Image (Token);
             begin
-               Error_Msg_SC ("|extra " & Tname (5 .. Tname'Last) & "ignored");
+               Error_Msg_SC ("|extra " & Tname (5 .. Tname'Last) & " ignored");
             end;
          end if;
 


Reply via email to