2 files changed, 19 insertions, 0 deletions
diff --git a/test/c/unused_poly_ctor.expect b/test/c/unused_poly_ctor.expect
new file mode 100644
index 00000000..e55551e8
--- /dev/null
+++ b/test/c/unused_poly_ctor.expect
@@ -0,0 +1 @@
+y = 0xFFFF
diff --git a/test/c/unused_poly_ctor.sail b/test/c/unused_poly_ctor.sail
new file mode 100644
index 00000000..c752cb33
--- /dev/null
+++ b/test/c/unused_poly_ctor.sail
@@ -0,0 +1,18 @@
+default Order dec
+
+$include <prelude.sail>
+
+val "print_endline" : string -> unit
+
+union U('a: Type) = {
+  Err : 'a,
+  Ok : bits(16)
+}
+
+function main((): unit) -> unit = {
+  let x : U(unit) = Ok(0xFFFF);
+  match x {
+    Err() => print_endline("error"),
+    Ok(y) => print_bits("y = ", y)
+  }
+}