From: Javier Miranda <mira...@adacore.com>

gcc/ada/ChangeLog:

        * sem_res.adb (Is_Ambiguous_Operand): Add missing decoration of
        the operand when it is labeled overloaded but has just one
        interpretation.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/sem_res.adb | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gcc/ada/sem_res.adb b/gcc/ada/sem_res.adb
index 5ca20613529..cd75508021c 100644
--- a/gcc/ada/sem_res.adb
+++ b/gcc/ada/sem_res.adb
@@ -13785,10 +13785,9 @@ package body Sem_Res is
 
             return True;
          end if;
-
-         Set_Etype (Operand, It1.Typ);
       end if;
 
+      Set_Etype (Operand, It1.Typ);
       return False;
    end Is_Ambiguous_Operand;
 
-- 
2.43.0

Reply via email to