diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-11-28 19:05:35 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-11-28 19:05:35 +0100 |
commit | d6556ba57fb0a340ab23197fbc5c6bf0b0b46b3b (patch) | |
tree | a0d9707329e5aa980ed191694866e4e246e67df1 /testsuite/gna/issue710/ent1.vhdl | |
parent | d142b93ca425c2b7194ec2ea5a558d005aa62734 (diff) | |
download | ghdl-d6556ba57fb0a340ab23197fbc5c6bf0b0b46b3b.tar.gz ghdl-d6556ba57fb0a340ab23197fbc5c6bf0b0b46b3b.tar.bz2 ghdl-d6556ba57fb0a340ab23197fbc5c6bf0b0b46b3b.zip |
Add testcase for #710
Diffstat (limited to 'testsuite/gna/issue710/ent1.vhdl')
-rw-r--r-- | testsuite/gna/issue710/ent1.vhdl | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/testsuite/gna/issue710/ent1.vhdl b/testsuite/gna/issue710/ent1.vhdl new file mode 100644 index 000000000..df618a5bd --- /dev/null +++ b/testsuite/gna/issue710/ent1.vhdl @@ -0,0 +1,27 @@ +package pkg is + procedure foo; +end package; + +package body pkg is + procedure foo is + begin + report "pkg foo"; + end procedure; +end package body; + +entity ent is +end entity; + +architecture a of ent is + procedure foo is + begin + report "arch foo"; + end procedure; +begin + main : process + use work.pkg.foo; + begin + foo; -- Causes ambiguity error but not if use clause is moved to architecture declarative region. + wait; + end process; +end architecture; |