testsuite/gna: add a test for previous commit

3 files changed, 37 insertions, 0 deletions

diff --git a/testsuite/gna/issue1419/repro3.vhdl b/testsuite/gna/issue1419/repro3.vhdl
new file mode 100644
index 000000000..80854a2ed
--- /dev/null
+++ b/testsuite/gna/issue1419/repro3.vhdl
@@ -0,0 +1,12 @@
+entity repro3 is
+end;
+
+architecture behav of repro3 is
+  type t_record is record
+    str : string;
+    num : positive;
+  end record;
+
+  constant k : t_record := ("abc", 0); --  BOUND error
+begin
+end;
diff --git a/testsuite/gna/issue1419/repro4.vhdl b/testsuite/gna/issue1419/repro4.vhdl
new file mode 100644
index 000000000..1ebcb4f52
--- /dev/null
+++ b/testsuite/gna/issue1419/repro4.vhdl
@@ -0,0 +1,9 @@
+entity repro4 is
+end;
+
+architecture behav of repro4 is
+  type natural_array is array(natural range <>) of natural;
+
+  constant k : natural_array := (0, 1, -2);
+begin
+end;
diff --git a/testsuite/gna/issue1419/testsuite.sh b/testsuite/gna/issue1419/testsuite.sh
new file mode 100755
index 000000000..c40322e93
--- /dev/null
+++ b/testsuite/gna/issue1419/testsuite.sh
@@ -0,0 +1,16 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+export GHDL_STD_FLAGS=--std=08
+
+analyze_failure -Werror repro3.vhdl
+analyze_failure -Werror repro4.vhdl
+
+#analyze model_pkg.vhdl
+#analyze tb
+#elab_simulate tb
+
+clean
+
+echo "Test successful"