summaryrefslogtreecommitdiff
path: root/testsuite/gna/ticket86/bug.vhdl
blob: 8c879fc7e312b363c3237d7fe1822067bfc5ef94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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;