diff options
author | Tristan Gingold <tgingold@free.fr> | 2015-06-02 20:43:17 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2015-06-02 20:43:17 +0200 |
commit | c4cb0f1b51fcc1b2a1490e5f7bd9344ce8c05bb6 (patch) | |
tree | 0c555db7590aa99e1234e679427b0b5de7c1fe99 /testsuite/gna/ticket86 | |
parent | 0a1113743c62e55386837f872b2e0c4ccfb9afb9 (diff) | |
download | ghdl-c4cb0f1b51fcc1b2a1490e5f7bd9344ce8c05bb6.tar.gz ghdl-c4cb0f1b51fcc1b2a1490e5f7bd9344ce8c05bb6.tar.bz2 ghdl-c4cb0f1b51fcc1b2a1490e5f7bd9344ce8c05bb6.zip |
Ticket 86 testcase.
Diffstat (limited to 'testsuite/gna/ticket86')
-rw-r--r-- | testsuite/gna/ticket86/bug.vhdl | 28 | ||||
-rwxr-xr-x | testsuite/gna/ticket86/testsuite.sh | 10 |
2 files changed, 38 insertions, 0 deletions
diff --git a/testsuite/gna/ticket86/bug.vhdl b/testsuite/gna/ticket86/bug.vhdl new file mode 100644 index 000000000..8c879fc7e --- /dev/null +++ b/testsuite/gna/ticket86/bug.vhdl @@ -0,0 +1,28 @@ +package pkg is + procedure proc; +end package; + +package body pkg is + procedure proc is + type nested_prot_t is protected + procedure proc; + end protected; + type nested_prot_t is protected body + procedure proc is + begin + end procedure; + end protected body; + variable nested_prot : nested_prot_t; + begin + nested_prot.proc; + end procedure; +end package body; + +entity ent is +end; + +architecture behav of ent is +begin + work.pkg.proc; +end; + diff --git a/testsuite/gna/ticket86/testsuite.sh b/testsuite/gna/ticket86/testsuite.sh new file mode 100755 index 000000000..e0096bb68 --- /dev/null +++ b/testsuite/gna/ticket86/testsuite.sh @@ -0,0 +1,10 @@ +#! /bin/sh + +. ../../testenv.sh + +GHDL_STD_FLAGS=--std=08 +analyze bug.vhdl +elab_simulate ent +clean + +echo "Test successful" |