From bd4aff0f670351c0652cf24e9b04361dc0e3a01c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 18 Dec 2013 05:53:22 +0100 Subject: Add initial testsuite, using regression tests from bugs or support reported on gna.org --- testsuite/gna/bug18351/PROBLEM.vhdl | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 testsuite/gna/bug18351/PROBLEM.vhdl (limited to 'testsuite/gna/bug18351/PROBLEM.vhdl') diff --git a/testsuite/gna/bug18351/PROBLEM.vhdl b/testsuite/gna/bug18351/PROBLEM.vhdl new file mode 100644 index 000000000..d312f2c33 --- /dev/null +++ b/testsuite/gna/bug18351/PROBLEM.vhdl @@ -0,0 +1,25 @@ +library ieee; +use ieee.std_logic_1164.all; + + +entity PROBLEM is +end PROBLEM; + + +architecture BUG of PROBLEM is + type t_stdlogic_ptr is access std_logic_vector; + function ISSUE_HERE return t_stdlogic_ptr; + + procedure PROBLEM_INSIDE is + procedure ANY_STUFF(param: in std_logic_vector) is + begin + end procedure; + begin + ANY_STUFF(ISSUE_HERE.all); + end PROBLEM_INSIDE; + +begin + + + +end BUG; -- cgit v1.2.3