[gcc r15-537] ada: Fix casing in error messages

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:3549a58fa544fe933eca207a9f2442489310aa4c

commit r15-537-g3549a58fa544fe933eca207a9f2442489310aa4c
Author: Piotr Trojanek <troja...@adacore.com>
Date:   Fri Feb 16 16:57:10 2024 +0100

    ada: Fix casing in error messages
    
    Error messages should not start with a capital letter.
    
    gcc/ada/
    
            * gnat_cuda.adb (Remove_CUDA_Device_Entities): Fix casing
            (this primarily fixes a style, because the capitalization will
            not be preserved by the error-reporting machinery anyway).
            * sem_ch13.adb (Analyze_User_Aspect_Aspect_Specification): Fix
            casing in error message.

Diff:
---
 gcc/ada/gnat_cuda.adb | 2 +-
 gcc/ada/sem_ch13.adb  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/ada/gnat_cuda.adb b/gcc/ada/gnat_cuda.adb
index af47b7287901..92576a4b397b 100644
--- a/gcc/ada/gnat_cuda.adb
+++ b/gcc/ada/gnat_cuda.adb
@@ -270,7 +270,7 @@ package body GNAT_CUDA is
                  and then Present (Corresponding_Stub (Parent (Bod)))
                then
                   Error_Msg_N
-                    ("Cuda_Device not suported on separate subprograms",
+                    ("CUDA_Device not suported on separate subprograms",
                      Corresponding_Stub (Parent (Bod)));
                else
                   Remove (Bod);
diff --git a/gcc/ada/sem_ch13.adb b/gcc/ada/sem_ch13.adb
index eee2aa09cd5c..8bc8e84ceb4a 100644
--- a/gcc/ada/sem_ch13.adb
+++ b/gcc/ada/sem_ch13.adb
@@ -8754,7 +8754,7 @@ package body Sem_Ch13 is
          Arg : Node_Id;
       begin
          if No (UAD_Pragma) then
-            Error_Msg_N ("No definition for user-defined aspect", Id);
+            Error_Msg_N ("no definition for user-defined aspect", Id);
             return;
          end if;