[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 c4c4d9152dcdf77453d003478b2b36ed93be6370..752b84d6b48abfa1060bb208f93080de9ed70802 100644 (file)
--- 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 --