From: Javier Miranda <miranda@adacore.com>
Date: Thu, 24 Aug 2023 19:32:59 +0000 (+0000)
Subject: ada: Assertion failure adding extra formals to late overriding subp.
X-Git-Tag: basepoints/gcc-15~6156
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=deb34fa91a4b0a8b1d8ff510a9d67a25e1a07a5e;p=thirdparty%2Fgcc.git

ada: Assertion failure adding extra formals to late overriding subp.

gcc/ada/

	* sem_ch6.adb (Parent_Subprogram): Complete assertion.
---

diff --git a/gcc/ada/sem_ch6.adb b/gcc/ada/sem_ch6.adb
index 297371a2c160..612a9e97221d 100644
--- a/gcc/ada/sem_ch6.adb
+++ b/gcc/ada/sem_ch6.adb
@@ -8789,7 +8789,8 @@ package body Sem_Ch6 is
                      and then Has_Controlling_Result (Subp_Id))
                    or else Has_Suffix (Ovr_E, 'P')
                    or else Is_RACW_Stub_Type
-                             (Find_Dispatching_Type (Subp_Id)));
+                             (Find_Dispatching_Type (Subp_Id))
+                   or else No (Overridden_Operation (Ovr_E)));
 
                if Present (Overridden_Operation (Ovr_E)) then
                   Ovr_E := Overridden_Operation (Ovr_E);