1 files changed, 15 insertions, 0 deletions
diff --git a/testsuite/gna/ticket37/genint.vhdl b/testsuite/gna/ticket37/genint.vhdl
new file mode 100644
index 000000000..742d1093e
--- /dev/null
+++ b/testsuite/gna/ticket37/genint.vhdl
@@ -0,0 +1,15 @@
+package pkg is
+  subtype myint is integer range integer'low to 169;
+end pkg;
+
+use work.pkg.all;
+
+entity genint is
+  generic (val : myint := 5);
+end genint;
+
+architecture behav of genint is
+begin
+  assert val = -159 or val = 9 severity failure;
+end behav;
+