From 30b88e21526330c47a52b3c83d661102f6d426ea Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 1 Jun 2022 07:57:29 +0200
Subject: vhdl-parse: do not allow nested context declaration.  For #2070

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

diff --git a/src/vhdl/vhdl-parse.adb b/src/vhdl/vhdl-parse.adb
index 0266a494e..b480d797f 100644
--- a/src/vhdl/vhdl-parse.adb
+++ b/src/vhdl/vhdl-parse.adb
@@ -11533,7 +11533,11 @@ package body Vhdl.Parse is
    is
       End_Loc : Location_Type;
    begin
-      Set_Library_Unit (Unit, Decl);
+      if Get_Kind (Unit) = Iir_Kind_Context_Declaration then
+         Error_Msg_Parse ("nested context declaration not allowed");
+      else
+         Set_Library_Unit (Unit, Decl);
+      end if;
 
       --  Skip 'is'
       Scan;
-- 
cgit v1.2.3