diff options
Diffstat (limited to 'testsuite/gna/issue238/proc1.vhdl')
-rw-r--r-- | testsuite/gna/issue238/proc1.vhdl | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/testsuite/gna/issue238/proc1.vhdl b/testsuite/gna/issue238/proc1.vhdl new file mode 100644 index 000000000..103e2855a --- /dev/null +++ b/testsuite/gna/issue238/proc1.vhdl @@ -0,0 +1,26 @@ +entity proc1 is +end; + +use work.pkg.all; + +architecture behav of proc1 is + procedure proc (v : inout rec) is + 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; + end proc; + +begin + process + variable v : rec_4; + begin + proc (v); + wait; + end process; +end behav; |