From: Piotr Trojanek <trojanek@adacore.com>
Date: Tue, 3 May 2022 12:13:13 +0000 (+0200)
Subject: [Ada] Fix missing space in error message
X-Git-Tag: basepoints/gcc-14~6304
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d12465419650114202b4f3e72838c2878db1b6b3;p=thirdparty%2Fgcc.git

[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.
---

diff --git a/gcc/ada/par-util.adb b/gcc/ada/par-util.adb
index 2eabc58699d..3f1247a5121 100644
--- 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;