From dc99e91b1fb4d43f2a805def33a8a5a9073794bb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Mon, 19 Nov 2018 18:25:43 +0100
Subject: Strenghten parser.

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

(limited to 'src')

diff --git a/src/vhdl/parse.adb b/src/vhdl/parse.adb
index 7623d49c3..86465e037 100644
--- a/src/vhdl/parse.adb
+++ b/src/vhdl/parse.adb
@@ -828,6 +828,7 @@ package body Parse is
                   when others =>
                      Error_Msg_Parse
                        ("identifier or all is expected after '.'");
+                     Res := Prefix;
                end case;
 
             when others =>
-- 
cgit v1.2.3