[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 42504836bdbeec8eb9e39d90747a13493acf3494..aa73f3a350b3d6907e1f70ae0ac8d5364e74ae63 100644 (file)
--- 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))",