From b0c78262e4c8a8670c6a111cb3bcac00dc445251 Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Thu, 26 Jul 2018 14:11:42 +0100
Subject: Coq: patterns on bit literals

---
 test/coq/pass/castunitvec.sail | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 test/coq/pass/castunitvec.sail

(limited to 'test')

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
+  }
-- 
cgit v1.2.3