diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:02:12 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-05-09 22:02:12 +0200 |
commit | 9890c3b761468eda5cb1565e93c851bedccd66d5 (patch) | |
tree | dada4f59315f99301ddc3eb0861d16c6ed7c31fc /testsuite/gna/ticket41 | |
parent | 69bbb91b44a1677fd1a0e5accce91f756b06727a (diff) | |
download | ghdl-9890c3b761468eda5cb1565e93c851bedccd66d5.tar.gz ghdl-9890c3b761468eda5cb1565e93c851bedccd66d5.tar.bz2 ghdl-9890c3b761468eda5cb1565e93c851bedccd66d5.zip |
File ticket41 testcase.
Diffstat (limited to 'testsuite/gna/ticket41')
-rw-r--r-- | testsuite/gna/ticket41/bug.vhdl | 16 | ||||
-rw-r--r-- | testsuite/gna/ticket41/bug1.vhdl | 14 | ||||
-rwxr-xr-x | testsuite/gna/ticket41/testsuite.sh | 10 |
3 files changed, 40 insertions, 0 deletions
diff --git a/testsuite/gna/ticket41/bug.vhdl b/testsuite/gna/ticket41/bug.vhdl new file mode 100644 index 000000000..8c4e4a9ca --- /dev/null +++ b/testsuite/gna/ticket41/bug.vhdl @@ -0,0 +1,16 @@ +package pkg is + procedure proc; + alias prog_alias is proc[]; +end package; + +package body pkg is + procedure proc is + begin + end; + + impure function prog_alias return integer is + begin + prog_alias; + return 0; + end; +end package body; diff --git a/testsuite/gna/ticket41/bug1.vhdl b/testsuite/gna/ticket41/bug1.vhdl new file mode 100644 index 000000000..958437cb8 --- /dev/null +++ b/testsuite/gna/ticket41/bug1.vhdl @@ -0,0 +1,14 @@ +entity bug1 is + +end bug1; + +architecture behav of bug1 is + constant c : natural := 5; + function c return natural is + begin + return 7; + end; +begin -- behav + + +end behav; diff --git a/testsuite/gna/ticket41/testsuite.sh b/testsuite/gna/ticket41/testsuite.sh new file mode 100755 index 000000000..3d048d564 --- /dev/null +++ b/testsuite/gna/ticket41/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +analyze bug.vhdl +analyze_failure bug1.vhdl + +clean + +echo "Test successful" |