testsuite/synth/issue1009/array_test.vhdl


1
2
3
4
5
6
7
8
9
10
11
12
13

entity array_test is
  port (
    o : out integer
  );
end array_test;

architecture rtl of array_test is
  type t_array is array (natural range <>) of integer;
  constant rec_constant : t_array := (1 => 27.777 us / 83.333 ns);
  constant rec_constant2 : t_array := rec_constant;
begin
  o <= rec_constant2 (1);
end rtl;