diff options
| author | Yannick Moy <moy@adacore.com> | 2021-05-10 14:36:25 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-06 14:46:55 +0000 |
| commit | cb338455b39c13cc2385b653dc9bb89edca24b62 (patch) | |
| tree | c44991a737525083d25a73d46ecc7a67da190a51 | |
| parent | 82a794419a00ea98b68d69b64363ae6746710de9 (diff) | |
| download | gcc-cb338455b39c13cc2385b653dc9bb89edca24b62.zip gcc-cb338455b39c13cc2385b653dc9bb89edca24b62.tar.gz gcc-cb338455b39c13cc2385b653dc9bb89edca24b62.tar.bz2 | |
[Ada] Missing space in error message for pattern matching
gcc/ada/
* sem_case.adb: Fix error message.
| -rw-r--r-- | gcc/ada/sem_case.adb | 4 |
1 files changed, 2 insertions, 2 deletions
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 |