testsuite/gna/issue1419/model_pkg.vhdl


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

package model_pkg is
    type t_record is
        record
          --srt : string (1 downto 1); -- works
            srt : string;
            num : natural;
        end record;

    type t_record_array is array (natural range <>) of t_record;

    constant k : t_record_array := (("a", 0), ("b", 1));
end package;