diff options
Diffstat (limited to 'gcc/ada/sem_warn.adb')
| -rw-r--r-- | gcc/ada/sem_warn.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/ada/sem_warn.adb b/gcc/ada/sem_warn.adb index 187fc9b..970213e 100644 --- a/gcc/ada/sem_warn.adb +++ b/gcc/ada/sem_warn.adb @@ -384,8 +384,7 @@ package body Sem_Warn is then null; - elsif Warn_On_No_Value_Assigned - and then Present (UR) + elsif Present (UR) and then Is_Access_Type (Etype (E1)) then |