1 files changed, 22 insertions, 0 deletions
diff --git a/testsuite/gna/bug21500/resolv2.vhdl b/testsuite/gna/bug21500/resolv2.vhdl
new file mode 100644
index 000000000..300a5a686
--- /dev/null
+++ b/testsuite/gna/bug21500/resolv2.vhdl
@@ -0,0 +1,22 @@
+entity top is
+  generic (width : natural := 8);
+end top;
+
+architecture behav of top is
+  type arr1 is array (1 to width) of natural;
+  type rec1 is record
+    i : integer;
+    a : arr1;
+    c : character;
+  end record;
+  type arr2 is array (natural range <>) of rec1;
+
+  function resolv (vec : arr2) return rec1
+  is
+  begin
+    return vec (vec'left);
+  end resolv;
+
+  signal s : resolv rec1;
+begin
+end;