diff options
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index f3133d2006d..b31aff7f437 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- $Revision: 1.24 $ +-- $Revision$ -- -- -- Copyright (C) 1999-2001 Free Software Foundation, Inc. -- -- -- @@ -926,7 +926,9 @@ package body Sem_Warn is end if; when E_Constant => - if Present (Renamed_Object (E)) then + if Present (Renamed_Object (E)) + and then Comes_From_Source (Renamed_Object (E)) + then Error_Msg_N ("renamed constant & is not referenced?", E); else Error_Msg_N ("constant & is not referenced?", E); |