From cb338455b39c13cc2385b653dc9bb89edca24b62 Mon Sep 17 00:00:00 2001 From: Yannick Moy Date: Mon, 10 May 2021 14:36:25 +0200 Subject: [PATCH] [Ada] Missing space in error message for pattern matching gcc/ada/ * sem_case.adb: Fix error message. --- gcc/ada/sem_case.adb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/ada/sem_case.adb b/gcc/ada/sem_case.adb index 36db9a7162d6..9ff256451fa2 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 -- 2.47.2