From f3be74ecaf73e793a1496467776e8991e79c1c1c Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Wed, 17 Feb 2016 06:51:09 +0100
Subject: Add issue40 testcase.

---
 testsuite/gna/issue40/test.vhdl    | 36 ++++++++++++++++++++++++++++++++++++
 testsuite/gna/issue40/test2.vhdl   | 36 ++++++++++++++++++++++++++++++++++++
 testsuite/gna/issue40/testsuite.sh |  9 +++++++++
 3 files changed, 81 insertions(+)
 create mode 100644 testsuite/gna/issue40/test.vhdl
 create mode 100644 testsuite/gna/issue40/test2.vhdl
 create mode 100755 testsuite/gna/issue40/testsuite.sh

(limited to 'testsuite')

diff --git a/testsuite/gna/issue40/test.vhdl b/testsuite/gna/issue40/test.vhdl
new file mode 100644
index 000000000..ca00ece42
--- /dev/null
+++ b/testsuite/gna/issue40/test.vhdl
@@ -0,0 +1,36 @@
+library ieee;
+    use ieee.std_logic_1164.all;
+    use ieee.numeric_std.all;
+
+entity a is
+port
+(
+    foo : in std_ulogic_vector
+);
+end a;
+
+architecture rtl of a is
+begin
+end rtl;
+
+library ieee;
+    use ieee.std_logic_1164.all;
+    use ieee.numeric_std.all;
+
+entity b is
+port
+(
+    bar     : inout std_logic_vector(7 downto 0)
+);
+end b;
+
+architecture rtl of b is
+begin
+
+i_a: entity work.a
+port map
+(
+    foo => std_ulogic_vector(bar)
+);
+end rtl;
+
diff --git a/testsuite/gna/issue40/test2.vhdl b/testsuite/gna/issue40/test2.vhdl
new file mode 100644
index 000000000..e9d2a5489
--- /dev/null
+++ b/testsuite/gna/issue40/test2.vhdl
@@ -0,0 +1,36 @@
+library ieee;
+    use ieee.std_logic_1164.all;
+    use ieee.numeric_std.all;
+
+entity a2 is
+port
+(
+    foo : out std_ulogic_vector
+);
+end;
+
+architecture rtl of a2 is
+begin
+end rtl;
+
+library ieee;
+    use ieee.std_logic_1164.all;
+    use ieee.numeric_std.all;
+
+entity b2 is
+port
+(
+    bar     : inout std_logic_vector(7 downto 0)
+);
+end;
+
+architecture rtl of b2 is
+begin
+
+i_a: entity work.a2
+port map
+(
+    std_logic_vector (foo) => bar
+);
+end rtl;
+
diff --git a/testsuite/gna/issue40/testsuite.sh b/testsuite/gna/issue40/testsuite.sh
new file mode 100755
index 000000000..91c95c926
--- /dev/null
+++ b/testsuite/gna/issue40/testsuite.sh
@@ -0,0 +1,9 @@
+#! /bin/sh
+
+. ../../testenv.sh
+analyze_failure test.vhdl
+analyze_failure test2.vhdl
+
+clean
+
+echo "Test successful"
-- 
cgit v1.2.3