[Ada] Fix missing space in error message

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.

gcc/ada/

	* par-util.adb (Ignore): Add missing space to message string.
This commit is contained in:
Piotr Trojanek 2022-05-03 14:13:13 +02:00 committed by Pierre-Marie de Rodat
parent da85f3f2c6
commit d124654196

View File

@ -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;