testsuite/gna/bug081/elab_prot.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

package prot_pkg is
  type myprot is protected
    impure function get return natural;
    procedure set (val : natural);
  end protected;
end prot_pkg;

package body prot_pkg is
  shared variable v: myprot;

  type myprot is protected body
    variable var : natural;
    impure function get return natural is
    begin
      return var;
    end get;

    procedure set (val : natural) is
    begin
      var := val;
    end set;
  end protected body myprot;
end prot_pkg;