From: Piotr Trojanek <troja...@adacore.com>

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.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 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 af47b728790..92576a4b397 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 eee2aa09cd5..8bc8e84ceb4 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;
 
-- 
2.43.2

Reply via email to