Add testcase for #719

3 files changed, 44 insertions, 0 deletions

diff --git a/testsuite/gna/issue719/tb.ref b/testsuite/gna/issue719/tb.ref
new file mode 100644
index 000000000..22f2ec691
--- /dev/null
+++ b/testsuite/gna/issue719/tb.ref
@@ -0,0 +1,2 @@
+tb.vhdl:23:14:warning: declaration of "din" hides signal "din" [-Whide]
+tb.vhdl:24:14:warning: declaration of "dout" hides port "dout" [-Whide]
diff --git a/testsuite/gna/issue719/tb.vhdl b/testsuite/gna/issue719/tb.vhdl
new file mode 100644
index 000000000..e911ae090
--- /dev/null
+++ b/testsuite/gna/issue719/tb.vhdl
@@ -0,0 +1,31 @@
+ library ieee;
+  use ieee.std_logic_1164.all;
+  use ieee.numeric_std.all;
+entity test_tb is
+port(
+  dout : std_logic
+);
+end entity;
+
+architecture sim of test_tb is
+  
+  signal rst : std_logic := '1';
+  signal clk : std_logic := '1';
+  signal din : std_logic ;
+
+  type myrec is
+  record
+    rst : std_logic;
+    vld : std_logic; 
+  end record;
+
+  procedure myproc(
+    variable din : in std_logic;
+    variable dout : out std_logic
+  ) is
+  begin
+    dout := din;
+  end procedure;
+
+begin
+end architecture;
diff --git a/testsuite/gna/issue719/testsuite.sh b/testsuite/gna/issue719/testsuite.sh
new file mode 100755
index 000000000..992c36968
--- /dev/null
+++ b/testsuite/gna/issue719/testsuite.sh
@@ -0,0 +1,11 @@
+#! /bin/sh
+
+. ../../testenv.sh
+
+analyze tb.vhdl 2> tb.out
+diff --strip-trailing-cr -q tb.ref tb.out
+
+rm -f tb.out
+clean
+
+echo "Test successful"