From 1b482832d5699f3cf248ea5dd7341bba8ca85417 Mon Sep 17 00:00:00 2001
From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Wed, 4 Aug 2021 17:46:04 +0200
Subject: [PATCH] [Ada] Fix CodePeer warnings

gcc/ada/

	* sem_aggr.adb (Resolve_Iterated_Component_Association):
	Initialize Id_Typ to Any_Type by default.
---
 gcc/ada/sem_aggr.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb
index c4c4d9152dcd..752b84d6b48a 100644
--- a/gcc/ada/sem_aggr.adb
+++ b/gcc/ada/sem_aggr.adb
@@ -1605,7 +1605,7 @@ package body Sem_Aggr is
          Loc : constant Source_Ptr := Sloc (N);
          Id  : constant Entity_Id  := Defining_Identifier (N);
 
-         Id_Typ : Entity_Id;
+         Id_Typ : Entity_Id := Any_Type;
 
          -----------------------
          -- Remove_References --
-- 
2.47.3