From: Ronan Desplanques <desplanques@adacore.com>
Date: Thu, 27 Feb 2025 14:45:01 +0000 (+0100)
Subject: ada: Fix assertion failure on error path
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e0e76ca8e37c42af96d6c2c581a8ee4b600a278;p=thirdparty%2Fgcc.git

ada: Fix assertion failure on error path

gcc/ada/ChangeLog:

	* sem_ch8.adb (Find_Selected_Component): Fix error path.
---

diff --git a/gcc/ada/sem_ch8.adb b/gcc/ada/sem_ch8.adb
index 4cd6b7d9340..db892d0a5be 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;