From 58e9003b0704ec7dd15f63d3a6f28d5440ad1136 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Tue, 14 Apr 2020 17:39:58 +0200
Subject: testsuite/gna: add a test for previous commit.

---
 testsuite/gna/bug0100/proctarg.vhdl | 15 +++++++++++++++
 testsuite/gna/bug0100/testsuite.sh  |  1 +
 2 files changed, 16 insertions(+)
 create mode 100644 testsuite/gna/bug0100/proctarg.vhdl

(limited to 'testsuite/gna')

diff --git a/testsuite/gna/bug0100/proctarg.vhdl b/testsuite/gna/bug0100/proctarg.vhdl
new file mode 100644
index 000000000..95258ecb8
--- /dev/null
+++ b/testsuite/gna/bug0100/proctarg.vhdl
@@ -0,0 +1,15 @@
+entity proctarg is
+end proctarg;
+
+architecture behav of proctarg is
+  procedure proc (n : natural) is
+  begin
+    proc := true;
+  end proc;
+
+  procedure proc (n : boolean) is
+  begin
+    proc <= true;
+  end proc;
+begin
+end;
diff --git a/testsuite/gna/bug0100/testsuite.sh b/testsuite/gna/bug0100/testsuite.sh
index 6d49e90ba..e4deb379a 100755
--- a/testsuite/gna/bug0100/testsuite.sh
+++ b/testsuite/gna/bug0100/testsuite.sh
@@ -17,6 +17,7 @@ analyze_failure usrattr.vhdl
 analyze_failure forloop.vhdl 
 analyze_failure emptyquote.vhdl
 analyze_failure qual.vhdl
+analyze_failure proctarg.vhdl
 
 if analyze_failure --force-analysis notype1.vhdl 2>&1 | grep -q "indexed name"; then
   :
-- 
cgit v1.2.3