diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-04-27 13:30:34 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-05 13:09:12 +0000 |
| commit | e7b17be97330d2e42dd7e8e84a5b16a167241931 (patch) | |
| tree | 0d45c805f73668654ea9447c5974fd7ba97c5eef /gcc | |
| parent | f7b2ce2f53b18c9770a5caae42e58791d41ae522 (diff) | |
| download | gcc-e7b17be97330d2e42dd7e8e84a5b16a167241931.zip gcc-e7b17be97330d2e42dd7e8e84a5b16a167241931.tar.gz gcc-e7b17be97330d2e42dd7e8e84a5b16a167241931.tar.bz2 | |
[Ada] Move overriding rename error message from declaration to use
gcc/ada/
* sem_ch3.adb (Check_Abstract_Overriding): Post error message on
renaming node.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_ch3.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/sem_ch3.adb b/gcc/ada/sem_ch3.adb index 4250483..aa73f3a 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))", |