testsuite/gna/issue238/assign1.vhdl


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

entity assign1 is
end;

use work.pkg.all;

architecture behav of assign1 is
begin
  process
   variable v : rec_4;
  begin
    v.a := 5;
    assert v.a = 5 severity failure;

    v.s := "Good";
    assert v.a = 5 severity failure;
    assert v.s = "Good" severity failure;

    assert false report "ok" severity note;
    wait;
  end process;
end behav;