testsuite/gna/issue1152/ent.vhdl


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

entity ent is
end;

architecture arch of ent is

  type range_t is array (integer range <>) of bit;

  function get_range (constant code : string) return range_t is
    constant ret_val : range_t(1 to 10) := (others => '0');
  begin
    return ret_val;
  end function get_range;

  signal ret_val : boolean_vector(get_range("HELLO")'range) := (others => false);

  --constant ret_range : range_t := get_range("HELLO");
  --signal ret_val : boolean_vector(ret_range) := (others => false);
begin
end;