From: Eric Botcazou <ebotcazou@adacore.com>
Date: Thu, 20 Nov 2025 20:54:03 +0000 (+0100)
Subject: ada: Fix problematic aggregate with box notation
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b6bfc77fe56ac999d515fe3899afbab0eb0ee480;p=thirdparty%2Fgcc.git

ada: Fix problematic aggregate with box notation

It runs afoul of the pragma Initialize_Scalars + -gnatVa combination.

gcc/ada/ChangeLog:

	* sem_ch12.adb (Remove_Parent): Only set the Is_Transient component
	of the local scope stack entry.
---

diff --git a/gcc/ada/sem_ch12.adb b/gcc/ada/sem_ch12.adb
index a5df3e535fa..d3403074ce4 100644
--- a/gcc/ada/sem_ch12.adb
+++ b/gcc/ada/sem_ch12.adb
@@ -16929,7 +16929,7 @@ package body Sem_Ch12 is
             Scope_Stack.Decrement_Last;
             S := Current_Scope;
          else
-            SE := (Is_Transient => False, others => <>);
+            SE.Is_Transient := False;
          end if;
 
          --  After child instantiation is complete, remove from scope stack the