1package pkg is
2  procedure proc;
3end package;
4
5package body pkg is
6  procedure proc is
7  begin
8    report "Hello";
9  end procedure;
10end package body;
11
12-------------------------------------------------------------------------------
13
14-- use work.pkg.proc; Put use clause here and it will work
15
16package other_pkg is
17  procedure calling_proc;
18end package;
19
20use work.pkg.proc;
21
22package body other_pkg is
23  procedure calling_proc is
24  begin
25    proc;
26  end procedure;
27end package body;
28
29-------------------------------------------------------------------------------
30
31use work.other_pkg.calling_proc;
32
33entity issue186 is
34end entity;
35
36architecture a of issue186 is
37begin
38  main : process
39  begin
40    calling_proc;
41    wait;
42  end process;
43end architecture;
44