testsuite/gna: add a test for #2131

2 files changed, 21 insertions, 0 deletions

diff --git a/testsuite/gna/issue2131/array_of_string_elements.vhdl b/testsuite/gna/issue2131/array_of_string_elements.vhdl
new file mode 100644
index 000000000..128a5f92f
--- /dev/null
+++ b/testsuite/gna/issue2131/array_of_string_elements.vhdl
@@ -0,0 +1,10 @@
+entity array_of_string_elements is
+end entity;
+
+architecture foo of array_of_string_elements is
+    type strings is array (natural range <>) of string;
+    constant strings_constants: strings(0 to 3) := 
+                          ("one", "two", "three", "four");
+    
+begin
+end architecture;
diff --git a/testsuite/gna/issue2131/testsuite.sh b/testsuite/gna/issue2131/testsuite.sh
new file mode 100755
index 000000000..7ab5ea0e6
--- /dev/null
+++ b/testsuite/gna/issue2131/testsuite.sh
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+analyze array_of_string_elements.vhdl
+elab_simulate_failure array_of_string_elements
+
+clean
+
+echo "Test successful"