From d4d4d0706e4c70a64ed196447d3e7ed837bfc5b0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 11 Aug 2022 11:53:43 +0200
Subject: testsuite/gna: add a test for #2131
---
testsuite/gna/issue2131/array_of_string_elements.vhdl | 10 ++++++++++
testsuite/gna/issue2131/testsuite.sh | 11 +++++++++++
2 files changed, 21 insertions(+)
create mode 100644 testsuite/gna/issue2131/array_of_string_elements.vhdl
create mode 100755 testsuite/gna/issue2131/testsuite.sh
(limited to 'testsuite')
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"
--
cgit v1.2.3