diff options
| -rw-r--r-- | testsuite/gna/bug0100/proctarg.vhdl | 15 | ||||
| -rwxr-xr-x | testsuite/gna/bug0100/testsuite.sh | 1 |
2 files changed, 16 insertions, 0 deletions
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 : |