testsuite/synth: add a similar testcase for #1009

2 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/synth/issue1009/array_test.vhdl b/testsuite/synth/issue1009/array_test.vhdl
new file mode 100644
index 000000000..571476555
--- /dev/null
+++ b/testsuite/synth/issue1009/array_test.vhdl
@@ -0,0 +1,13 @@
+entity array_test is
+  port (
+    o : out integer
+  );
+end array_test;
+
+architecture rtl of array_test is
+  type t_array is array (natural range <>) of integer;
+  constant rec_constant : t_array := (1 => 27.777 us / 83.333 ns);
+  constant rec_constant2 : t_array := rec_constant;
+begin
+  o <= rec_constant2 (1);
+end rtl;
diff --git a/testsuite/synth/issue1009/testsuite.sh b/testsuite/synth/issue1009/testsuite.sh
index 54edeede9..11244d457 100755
--- a/testsuite/synth/issue1009/testsuite.sh
+++ b/testsuite/synth/issue1009/testsuite.sh
@@ -5,6 +5,9 @@
 synth record_test.vhdl -e > syn_record_test.vhdl
 analyze syn_record_test.vhdl
 
+synth array_test.vhdl -e > syn_array_test.vhdl
+analyze syn_array_test.vhdl
+
 clean
 
 echo "Test successful"