diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-14 17:39:58 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-14 20:29:09 +0200 |
| commit | 58e9003b0704ec7dd15f63d3a6f28d5440ad1136 (patch) | |
| tree | aa957a82bbffef4d0f1b316847858dfdd64854b7 /testsuite | |
| parent | 37d14d91f5883620db6784d548b303c7a6e3f35c (diff) | |
| download | ghdl-58e9003b0704ec7dd15f63d3a6f28d5440ad1136.tar.gz ghdl-58e9003b0704ec7dd15f63d3a6f28d5440ad1136.tar.bz2 ghdl-58e9003b0704ec7dd15f63d3a6f28d5440ad1136.zip | |
testsuite/gna: add a test for previous commit.
Diffstat (limited to 'testsuite')
| -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 : |