From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Tue, 27 Apr 2021 11:30:34 +0000 (+0200)
Subject: [Ada] Move overriding rename error message from declaration to use
X-Git-Tag: basepoints/gcc-13~6295
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=e7b17be97330d2e42dd7e8e84a5b16a167241931;p=thirdparty%2Fgcc.git

[Ada] Move overriding rename error message from declaration to use

gcc/ada/

	* sem_ch3.adb (Check_Abstract_Overriding): Post error message on
	renaming node.
---

diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb
index 42504836bdbe..aa73f3a350b3 100644
--- a/gcc/ada/sem_ch3.adb
+++ b/gcc/ada/sem_ch3.adb
@@ -11156,7 +11156,8 @@ package body Sem_Ch3 is
 
             if Present (Renamed_Or_Alias (Subp)) then
                if not No_Return (Renamed_Or_Alias (Subp)) then
-                  Error_Msg_N ("subprogram & must be No_Return",
+                  Error_Msg_NE ("subprogram & must be No_Return",
+                    Subp,
                     Renamed_Or_Alias (Subp));
                   Error_Msg_N ("\since renaming & overrides No_Return "
                     & "subprogram (RM 6.5.1(6/2))",