diff options
| -rw-r--r-- | src/vhdl/sem_expr.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/vhdl/sem_expr.adb b/src/vhdl/sem_expr.adb index 2325a27..7500a55 100644 --- a/src/vhdl/sem_expr.adb +++ b/src/vhdl/sem_expr.adb @@ -2560,9 +2560,9 @@ package body Sem_Expr is if Pos < E_Pos and then not Has_Others then Error_No_Choice (Bt, Pos, E_Pos - 1, Get_Location (Arr (I))); elsif Pos > E_Pos then - if Pos + 1 = E_Pos then + if Pos = E_Pos + 1 then Error_Msg_Sem - ("duplicate choice for " & Disp_Discrete (Bt, Pos), + ("duplicate choice for " & Disp_Discrete (Bt, E_Pos), Arr (I)); else Error_Msg_Sem |