diff options
Diffstat (limited to 'testsuite/synth/issue1324/st.vhdl')
-rw-r--r-- | testsuite/synth/issue1324/st.vhdl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/testsuite/synth/issue1324/st.vhdl b/testsuite/synth/issue1324/st.vhdl new file mode 100644 index 000000000..640850e2b --- /dev/null +++ b/testsuite/synth/issue1324/st.vhdl @@ -0,0 +1,18 @@ +entity st is +end; + +architecture behav of st is + shared variable cnt : natural := 2; + + impure function f return natural is + begin + cnt := cnt + 1; + return cnt; + end f; + + signal s1, s2, s3 : bit_vector (1 to f) := (others => '0'); +begin + assert false report "s1'length=" & natural'image (s1'length); + assert false report "s2'length=" & natural'image (s2'length); + assert false report "s3'length=" & natural'image (s3'length); +end behav; |