Add initial testsuite, using regression tests from bugs or support

reported on gna.org

1 files changed, 16 insertions, 0 deletions

diff --git a/testsuite/gna/bug20255/test.vhd b/testsuite/gna/bug20255/test.vhd
new file mode 100644
index 0000000..52b72ff
--- /dev/null
+++ b/testsuite/gna/bug20255/test.vhd
@@ -0,0 +1,16 @@
+entity e is
+end entity e;
+architecture test of e is
+begin                               
+	test : process is
+	
+	type frequency is range -2147483647 to 2147483647 units KHz;
+		MHz = 1000 KHz;
+		GHz = 1000 MHz;
+	end units;
+	begin
+		assert frequency'image(2 MHz) =  "2000 khz";  -- this should work, but GHDL produces an error
+		wait;
+	end process;
+
+end architecture test;