diff options
| -rw-r--r-- | gcc/ada/sem_aggr.adb | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/ada/sem_aggr.adb b/gcc/ada/sem_aggr.adb index 31496be..d2419d9 100644 --- a/gcc/ada/sem_aggr.adb +++ b/gcc/ada/sem_aggr.adb @@ -2677,7 +2677,7 @@ package body Sem_Aggr is Ent : Entity_Id; Expr : Node_Id; Id : Entity_Id; - Typ : Entity_Id; + Typ : Entity_Id := Empty; begin if Present (Iterator_Specification (Comp)) then @@ -2727,7 +2727,9 @@ package body Sem_Aggr is -- expression will reference the internal (synonym) loop variable. Enter_Name (Id); + if No (Key_Type) then + pragma Assert (Present (Typ)); Set_Etype (Id, Typ); else Set_Etype (Id, Key_Type); |