diff options
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; |