diff options
| -rw-r--r-- | sem_specs.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sem_specs.adb b/sem_specs.adb index 73275f697..ebcb3f38f 100644 --- a/sem_specs.adb +++ b/sem_specs.adb @@ -1493,10 +1493,10 @@ package body Sem_Specs is end if; Assoc := Create_Iir (Iir_Kind_Association_Element_By_Expression); Location_Copy (Assoc, Parent); - Set_Whole_Association_Flag (Assoc, True); Set_Actual (Assoc, Comp_El); Found := Found + 1; end if; + Set_Whole_Association_Flag (Assoc, True); Set_Formal (Assoc, Ent_El); if Kind = Map_Port and then not Error |