From: Ghjuvan Lacambre <lacambre@adacore.com>
Date: Wed, 4 Aug 2021 15:46:04 +0000 (+0200)
Subject: [Ada] Fix CodePeer warnings
X-Git-Tag: basepoints/gcc-13~4310
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=1b482832d5699f3cf248ea5dd7341bba8ca85417;p=thirdparty%2Fgcc.git

[Ada] Fix CodePeer warnings

gcc/ada/

	* sem_aggr.adb (Resolve_Iterated_Component_Association):
	Initialize Id_Typ to Any_Type by default.
---

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 --