Coq: patterns on bit literals

1 files changed, 10 insertions, 0 deletions

diff --git a/test/coq/pass/castunitvec.sail b/test/coq/pass/castunitvec.sail
new file mode 100644
index 00000000..c17aa7ea
--- /dev/null
+++ b/test/coq/pass/castunitvec.sail
@@ -0,0 +1,10 @@
+default Order dec
+$include <prelude.sail>
+
+val cast cast_unit_vec : bit -> bits(1)
+
+function cast_unit_vec b =
+  match b {
+    bitzero => 0b0,
+    bitone  => 0b1
+  }