[gcc r15-3300] ada: Use the same warning character in continuation messages

[Marc Poulhi?s via Gcc-cvs]

https://gcc.gnu.org/g:bb7a1667125166f225d2987e968495713d737951

commit r15-3300-gbb7a1667125166f225d2987e968495713d737951
Author: Viljar Indus <in...@adacore.com>
Date:   Fri Jul 19 10:34:03 2024 +0300

    ada: Use the same warning character in continuation messages
    
    For consitency sake the main and continuation messages should
    use the same warning characters.
    
    gcc/ada/
    
            * exp_aggr.adb (Expand_Range_Component): Remove extra warning
            character. Use same conditional warning char.
            * freeze.adb (Warn_Overlay): Use named warning character.
            * restrict.adb (Id_Case): Use named warning character.
            * sem_prag.adb (Rewrite_Assertion_Kind): Use default warning
            character.

Diff:
---
 gcc/ada/exp_aggr.adb | 4 ++--
 gcc/ada/freeze.adb   | 4 ++--
 gcc/ada/restrict.adb | 2 +-
 gcc/ada/sem_prag.adb | 2 +-
 4 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/gcc/ada/exp_aggr.adb b/gcc/ada/exp_aggr.adb
index 83b88e7cf734..846665eae20b 100644
--- a/gcc/ada/exp_aggr.adb
+++ b/gcc/ada/exp_aggr.adb
@@ -7276,9 +7276,9 @@ package body Exp_Aggr is
          Error_Msg_Warn := SPARK_Mode /= On;
          Error_Msg_N
            ("!empty aggregate returned by the empty function of a container"
-            & " aggregate<<<", Parent (N));
+            & " aggregate<<", Parent (N));
          Error_Msg_N
-           ("\this will result in infinite recursion??", Parent (N));
+           ("\this will result in infinite recursion<<", Parent (N));
       end if;
 
       ---------------------------
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb
index f7fc895055a1..882c026455ec 100644
--- a/gcc/ada/freeze.adb
+++ b/gcc/ada/freeze.adb
@@ -11100,7 +11100,7 @@ package body Freeze is
                   then
                      Error_Msg_NE
                        ("\packed array component& " &
-                        "will be initialized to zero??",
+                        "will be initialized to zero?o?",
                         Nam, Comp);
                      exit;
                   else
@@ -11112,7 +11112,7 @@ package body Freeze is
 
          Error_Msg_N
            ("\use pragma Import for & to " &
-            "suppress initialization (RM B.1(24))??",
+            "suppress initialization (RM B.1(24))?o?",
             Nam);
       end if;
    end Warn_Overlay;
diff --git a/gcc/ada/restrict.adb b/gcc/ada/restrict.adb
index bda35d8f441a..2e3cdde3d6e8 100644
--- a/gcc/ada/restrict.adb
+++ b/gcc/ada/restrict.adb
@@ -1262,7 +1262,7 @@ package body Restrict is
          --  Set as warning if warning case
 
          if Restriction_Warnings (R) then
-            Add_Str ("??");
+            Add_Str ("?*?");
          end if;
 
          --  Set main message
diff --git a/gcc/ada/sem_prag.adb b/gcc/ada/sem_prag.adb
index 87922816a9a5..b139bd4cf4e7 100644
--- a/gcc/ada/sem_prag.adb
+++ b/gcc/ada/sem_prag.adb
@@ -33719,7 +33719,7 @@ package body Sem_Prag is
             Error_Msg_N ("Check_Policy is a non-standard pragma??", N);
             Error_Msg_N
               ("\use Assertion_Policy and aspect names Pre/Post for "
-               & "Ada2012 conformance?", N);
+               & "Ada2012 conformance??", N);
          end if;
 
          return;