testsuite/gna/issue238/pkg.vhdl


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

use work.cst.all;

package pkg is
  type rec is record
    s : string;
    a : integer;
  end record;

  constant cfour : natural := work.cst.four;

  subtype rec_4 is rec (s(1 to 4));
  subtype rec_4bis is rec (s(1 to 4));
  subtype rec_4dyn is rec (s(1 to cfour));
end pkg;