[gcc r16-1305] ada: Fix assertion failure on error path

[Marc Poulhies via Gcc-cvs]

https://gcc.gnu.org/g:2e0e76ca8e37c42af96d6c2c581a8ee4b600a278

commit r16-1305-g2e0e76ca8e37c42af96d6c2c581a8ee4b600a278
Author: Ronan Desplanques <desplanq...@adacore.com>
Date:   Thu Feb 27 15:45:01 2025 +0100

    ada: Fix assertion failure on error path
    
    gcc/ada/ChangeLog:
    
            * sem_ch8.adb (Find_Selected_Component): Fix error path.

Diff:
---
 gcc/ada/sem_ch8.adb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 4cd6b7d93402..db892d0a5bef 100644
--- a/gcc/ada/sem_ch8.adb
+++ b/gcc/ada/sem_ch8.adb
@@ -8419,6 +8419,7 @@ package body Sem_Ch8 is
                         if Found then
                            Error_Msg_N (
                               "prefix must be unique enclosing scope", N);
+                           Change_Selected_Component_To_Expanded_Name (N);
                            Set_Entity (N, Any_Id);
                            Set_Etype  (N, Any_Type);
                            return;