From a868ef001e20329f0ffe6bf6557f2d7381f96bfe Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 13 Jun 2019 18:17:57 +0200
Subject: vhdl-parse: improve error message in case of unexpected

---
 src/vhdl/vhdl-parse.adb | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/vhdl')

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index d227d9b9f..36750870f 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -3711,6 +3711,18 @@ package body Vhdl.Parse is
       --  Skip ':'.
       Expect_Scan (Tok_Colon);
 
+      --  Skip unexpected mode, this could happen when the interface is
+      --  copied.
+      case Current_Token is
+         when Tok_In | Tok_Out | Tok_Inout | Tok_Buffer | Tok_Linkage =>
+            Error_Msg_Parse ("mode not allowed in object declaration");
+
+            --  Skip mode.
+            Scan;
+         when others =>
+            null;
+      end case;
+
       Object_Type := Parse_Subtype_Indication;
 
       if Kind = Iir_Kind_Signal_Declaration then
-- 
cgit v1.2.3