diff options
Diffstat (limited to 'testsuite/gna/issue238/rec2.vhdl')
-rw-r--r-- | testsuite/gna/issue238/rec2.vhdl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/testsuite/gna/issue238/rec2.vhdl b/testsuite/gna/issue238/rec2.vhdl new file mode 100644 index 000000000..7ab1ec9fb --- /dev/null +++ b/testsuite/gna/issue238/rec2.vhdl @@ -0,0 +1,24 @@ +entity rec2 is +end; + +architecture behav of rec2 is + type rec1 is record + a : natural; + end record; + + type rec1_arr is array (natural range <>) of rec1; + + function resolve (a : rec1_arr) return rec1 is + begin + return (a => 0); + end resolve; + + subtype srec1 is resolve rec1; +begin + process + variable a : srec1; + begin + a.a := 5; + wait; + end process; +end behav; |