diff options
Diffstat (limited to 'sem_assocs.adb')
| -rw-r--r-- | sem_assocs.adb | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/sem_assocs.adb b/sem_assocs.adb index 178bf6d..d752c79 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -697,6 +697,7 @@ package body Sem_Assocs is case Get_Kind (Atype) is when Iir_Kind_Array_Subtype_Definition => Finish_Individual_Assoc_Array_Subtype (Assoc, Atype, 1); + Set_Actual_Type (Assoc, Atype); when Iir_Kind_Array_Type_Definition => Atype := Create_Array_Subtype (Atype, Get_Location (Assoc)); Set_Index_Constraint_Flag (Atype, True); |