From: Yannick Moy <moy@adacore.com>
Date: Mon, 10 May 2021 12:36:25 +0000 (+0200)
Subject: [Ada] Missing space in error message for pattern matching
X-Git-Tag: upstream/12.2.0~6632
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=cb338455b39c13cc2385b653dc9bb89edca24b62;p=platform%2Fupstream%2Fgcc.git

[Ada] Missing space in error message for pattern matching

gcc/ada/

	* sem_case.adb: Fix error message.
---

diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb
index 36db9a7..9ff2564 100644
--- a/gcc/ada/sem_case.adb
+++ b/gcc/ada/sem_case.adb
@@ -2908,7 +2908,7 @@ package body Sem_Case is
             begin
                if Has_Predicates (Subtyp) then
                   Error_Msg_N
-                     ("subtype of case selector (or subcomponent thereof)" &
+                     ("subtype of case selector (or subcomponent thereof) " &
                       "has predicate", N);
                elsif Is_Discrete_Type (Subtyp) then
                   if not Is_Static_Subtype (Subtyp) then
@@ -2938,7 +2938,7 @@ package body Sem_Case is
                elsif Is_Record_Type (Subtyp) then
                   if Has_Discriminants (Subtyp) then
                      Error_Msg_N
-                        ("type of case selector (or subcomponent thereof)" &
+                        ("type of case selector (or subcomponent thereof) " &
                          "is discriminated", N);
                   else
                      declare