From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 26 Apr 2022 07:21:01 +0000 (+0200)
Subject: [Ada] Fix -gnatw.f warnings not having the right insertion characters
X-Git-Tag: basepoints/gcc-14~6365
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8337af4f9db8bee0e83995f4280f4123f8af9767;p=thirdparty%2Fgcc.git

[Ada] Fix -gnatw.f warnings not having the right insertion characters

This caused these warnings not to be tagged with the switch causing
them, which is an issue for tools ingesting GNAT's output.

gcc/ada/

	* sem_elab.adb (Process_Conditional_ABE_Access_Taken): Add '.f'
	insertion characters.
---

diff --git a/gcc/ada/sem_elab.adb b/gcc/ada/sem_elab.adb
index 068402aec13..0d5befc5257 100644
--- a/gcc/ada/sem_elab.adb
+++ b/gcc/ada/sem_elab.adb
@@ -4958,7 +4958,7 @@ package body Sem_Elab is
          then
             Error_Msg_Name_1 := Attribute_Name (Attr);
             Error_Msg_NE
-              ("??% attribute of & before body seen", Attr, Subp_Id);
+              ("?.f?% attribute of & before body seen", Attr, Subp_Id);
             Error_Msg_N ("\possible Program_Error on later references", Attr);
 
             Output_Active_Scenarios (Attr, New_In_State);