aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/vhdl-sem_expr.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/vhdl-sem_expr.adb')
-rw-r--r--src/vhdl/vhdl-sem_expr.adb2
1 files changed, 2 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb
index 5b5010319..1b52000b5 100644
--- a/src/vhdl/vhdl-sem_expr.adb
+++ b/src/vhdl/vhdl-sem_expr.adb
@@ -1675,6 +1675,8 @@ package body Vhdl.Sem_Expr is
end if;
if Get_Kind (Formal) = Iir_Kind_Interface_Signal_Declaration
and then Get_Mode (Formal) in Iir_Out_Modes
+ and then
+ Get_Kind (Param) = Iir_Kind_Association_Element_By_Expression
then
Prefix := Name_To_Object (Get_Actual (Param));
if Prefix /= Null_Iir then