1entity test is
2end test;
3
4architecture only of test is
5
6begin  -- only
7  doit: process
8    variable one, two, three : boolean := false;
9  begin  -- process doit
10    if true then
11      one := true;
12    else
13
14    end if;
15
16    if false then
17      one := false;
18    else
19      two := true;
20    end if;
21
22    if false then
23      one := false;
24    elsif true then
25      three := true;
26    else
27      two := false;
28    end if;
29
30    assert one report "TEST FAILED - first if test failed" severity failure;
31    assert two report "TEST FAILED - second if test failed" severity failure;
32    assert three report "TEST FAILED - third if test failed" severity failure;
33    report "TEST PASSED" severity note;
34
35    wait;
36  end process doit;
37end only;
38