diff options
| -rw-r--r-- | src/vhdl/vhdl-sem_expr.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index 99a938380..b8445bcec 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -4897,9 +4897,10 @@ package body Vhdl.Sem_Expr is return Null_Iir; when Iir_Kind_Range_Expression => - -- Can only happen in case of parse error, as a range is not an - -- expression. - pragma Assert (Flags.Flag_Force_Analysis); + -- That's an error. Can happen for: + -- c (1 downto 0); + -- which is first parsed as a target of a concurrent assignment, + -- and then as a concurrent procedure call. declare Res : Iir; begin |