Add test for architecture declarative region nested in entity's one.

2 files changed, 19 insertions, 0 deletions

diff --git a/testsuite/gna/issue542/nest.vhdl b/testsuite/gna/issue542/nest.vhdl
new file mode 100644
index 000000000..0becf0fe2
--- /dev/null
+++ b/testsuite/gna/issue542/nest.vhdl
@@ -0,0 +1,9 @@
+entity nest is
+  constant c : natural := 1;
+end nest;
+
+architecture behav of nest is
+  --  Not valid in vhdl-02.
+  signal c : boolean;
+begin
+end behav;
diff --git a/testsuite/gna/issue542/testsuite.sh b/testsuite/gna/issue542/testsuite.sh
index b132693a1..300b24e3a 100755
--- a/testsuite/gna/issue542/testsuite.sh
+++ b/testsuite/gna/issue542/testsuite.sh
@@ -6,12 +6,22 @@ export GHDL_STD_FLAGS=--std=93
 analyze write.vhd
 analyze_failure wrapper.vhd
 
+analyze_failure nest.vhdl
+
+clean
+
+
+export GHDL_STD_FLAGS=--std=02
+analyze nest.vhdl
+
 clean
 
 export GHDL_STD_FLAGS=--std=08
 analyze write.vhd
 analyze_failure wrapper.vhd
 
+analyze_failure nest.vhdl
+
 clean
 
 echo "Test successful"