From db01ce5381fc38c50454b544d6692d2b7e39ac29 Mon Sep 17 00:00:00 2001
From: Viljar Indus <indus@adacore.com>
Date: Mon, 19 Jun 2023 14:11:20 +0300
Subject: [PATCH] ada: Reuse code in Is_Fully_Initialized_Type

gcc/ada/

	* sem_util.adb (Is_Fully_Initialized_Type): Avoid recalculating
	the underlying type twice.
---
 gcc/ada/sem_util.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 736751f5fae5..821aacf1ccb5 100644
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -17333,7 +17333,7 @@ package body Sem_Util is
                   declare
                      Init : constant Entity_Id :=
                               (Find_Optional_Prim_Op
-                                 (Underlying_Type (Typ), Name_Initialize));
+                                 (Utyp, Name_Initialize));
 
                   begin
                      if Present (Init)
-- 
2.47.2