From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 26 Apr 2022 07:32:59 +0000 (+0200)
Subject: [Ada] Fix Warn_On_All_Unread_Out_Parameters not being properly tagged
X-Git-Tag: basepoints/gcc-14~6363
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=67481ef52716c9baa0d69b7ce54f935e50982a11;p=thirdparty%2Fgcc.git

[Ada] Fix Warn_On_All_Unread_Out_Parameters not being properly tagged

This caused tools ingesting GNAT's output to mislabel these messages.

gcc/ada/

	* sem_warn.adb (Warn_On_Useless_Assignment): Fix insertion
	character.
---

diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb
index 1bc248ce00e..251235797e9 100644
--- a/gcc/ada/sem_warn.adb
+++ b/gcc/ada/sem_warn.adb
@@ -4595,7 +4595,7 @@ package body Sem_Warn is
                         then
                            if Warn_On_All_Unread_Out_Parameters then
                               Error_Msg_NE
-                                ("?m?& modified by call, but value might not "
+                                ("?.o?& modified by call, but value might not "
                                  & "be referenced", LA, Ent);
                            end if;
                         else