testsuite/gna: add reproducer for #1419

1 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/gna/issue1419/repro1.vhdl b/testsuite/gna/issue1419/repro1.vhdl
new file mode 100644
index 000000000..605d5b04b
--- /dev/null
+++ b/testsuite/gna/issue1419/repro1.vhdl
@@ -0,0 +1,16 @@
+entity repro1 is
+end;
+
+architecture behav of repro1 is
+    type t_record is
+        record
+          --srt : string (1 downto 1); -- works
+            srt : string;
+            num : positive;
+        end record;
+
+    type t_record_array is array (natural range <>) of t_record;
+
+    constant k : t_record_array := (("a", 1), ("b", 2));
+begin
+end;