aboutsummaryrefslogtreecommitdiffstats
path: root/testsuite/gna/issue631/e.vhdl
blob: f23cec898bb77887abcee7430ba02381ea20b040 (plain)
1
2
3
4
5
6
7
8
9
10
11
entity e is end entity;
architecture a of e is begin
  process
    procedure p(x :out bit_vector(1 to 1)) is begin end procedure;
    function f(x :bit_vector) return string is begin return "a"; end function;
    variable v :string(1 to 1);
  begin
    p( f(x)(1) => v(1) );
    wait;
  end process;
end architecture;