diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_assocs.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/vhdl-sem_assocs.adb b/src/vhdl/vhdl-sem_assocs.adb index 4c9ea3b06..304e59915 100644 --- a/src/vhdl/vhdl-sem_assocs.adb +++ b/src/vhdl/vhdl-sem_assocs.adb @@ -534,6 +534,10 @@ package body Vhdl.Sem_Assocs is then return True; end if; + if Get_Kind (Dest) not in Iir_Kinds_Scalar_Type_And_Subtype_Definition + then + return True; + end if; Src_Range := Get_Range_Constraint (Src); Dst_Range := Get_Range_Constraint (Dest); |