aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/vhdl/vhdl-sem_expr.adb7
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