diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index e9f05f9bc..3dd6cd304 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -3329,7 +3329,8 @@ package body Vhdl.Sem_Expr is (+Get_Associated_Expr (El), "type of element not compatible with the " & "expected type"); - Set_Type (El_Expr, Error_Type); + Set_Type (Expr, Error_Type); + Set_Associated_Expr (El, Expr); Expr := Null_Iir; elsif Is_Overload_List (Res_Type) then Error_Msg_Sem |