From 997d378b6357a202ce9457f664f1e258aaeed6df Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 29 Oct 2020 07:58:42 +0100
Subject: vhdl-parse: do not skip token in case of error.  Fix #1500

---
 src/vhdl/vhdl-parse.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index a2b0ad79d..9bae823b2 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -5763,7 +5763,7 @@ package body Vhdl.Parse is
       Set_Location (Res, Loc);
       Chain_Init (First, Last);
       loop
-         if Current_Token = Tok_Others then
+         if Current_Token = Tok_Others and then Expr = Null_Iir then
             Assoc := Parse_A_Choice (Null_Iir, Loc);
             Expect (Tok_Double_Arrow);
 
-- 
cgit v1.2.3