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 87081f4cf..c4a9bce74 100644 --- a/sem_assocs.adb +++ b/sem_assocs.adb @@ -489,6 +489,7 @@ package body Sem_Assocs is Sub := Create_Iir (Iir_Kind_Association_Element_By_Individual); Location_Copy (Sub, Formal); Set_Formal (Sub, Iassoc); + Set_Associated (Iassoc, Sub); Iassoc := Sub; else case Get_Kind (Sub) is |