Add ticket50 testcase.

3 files changed, 49 insertions, 0 deletions

diff --git a/testsuite/gna/ticket50/ent.vhdl b/testsuite/gna/ticket50/ent.vhdl
new file mode 100644
index 0000000..c1cc8d3
--- /dev/null
+++ b/testsuite/gna/ticket50/ent.vhdl
@@ -0,0 +1,16 @@
+entity ent is
+end entity;
+
+architecture a of ent is
+  type enum_t is (cond);
+  impure function cond return boolean is
+  begin
+    return false;
+  end function;
+begin
+  main : process
+  begin
+    if cond then
+    end if;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket50/ent2.vhdl b/testsuite/gna/ticket50/ent2.vhdl
new file mode 100644
index 0000000..e8a0aba
--- /dev/null
+++ b/testsuite/gna/ticket50/ent2.vhdl
@@ -0,0 +1,23 @@
+entity ent is
+end entity;
+
+package pkg1 is
+  function cond return boolean;
+end pkg1;
+
+package pkg2 is
+  function cond return boolean;
+end pkg2;
+
+use work.pkg1.all;
+use work.pkg2.all;
+
+architecture a of ent is
+  type enum_t is (cond);
+begin
+  main : process
+  begin
+    if cond then
+    end if;
+  end process;
+end architecture;
diff --git a/testsuite/gna/ticket50/testsuite.sh b/testsuite/gna/ticket50/testsuite.sh
new file mode 100755
index 0000000..3313524
--- /dev/null
+++ b/testsuite/gna/ticket50/testsuite.sh
@@ -0,0 +1,10 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze --std=08 ent.vhdl
+analyze_failure --std=08 ent2.vhdl
+
+GHDL_STD_FLAGS=--std=08 clean
+
+echo "Test successful"