diff options
Diffstat (limited to 'testsuite/gna/sr2737/repro.vhdl')
| -rw-r--r-- | testsuite/gna/sr2737/repro.vhdl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/testsuite/gna/sr2737/repro.vhdl b/testsuite/gna/sr2737/repro.vhdl new file mode 100644 index 0000000..571afe9 --- /dev/null +++ b/testsuite/gna/sr2737/repro.vhdl @@ -0,0 +1,16 @@ +entity repro is +end entity; + +architecture ghdl_bug of repro is + +begin + -- Static + assert bit_vector'("11100" ror 5) = "11100" report "ror 5 is broken" severity warning; + -- Not static + assert bit_vector'("11100") ror 5 = "11100" report string'("ror 5 is broken ") severity warning; + + -- static + assert bit_vector'("11100" rol -5) = "11100" report "rol -5 is broken" severity warning; + -- not static + assert bit_vector'("11100") rol -5 = "11100" report string'("rol -5 is broken ") severity warning; +end architecture; |