summaryrefslogtreecommitdiff
path: root/test/c/anf_as_pattern.sail
diff options
context:
space:
mode:
Diffstat (limited to 'test/c/anf_as_pattern.sail')
-rw-r--r--test/c/anf_as_pattern.sail19
1 files changed, 19 insertions, 0 deletions
diff --git a/test/c/anf_as_pattern.sail b/test/c/anf_as_pattern.sail
new file mode 100644
index 00000000..9b9196b1
--- /dev/null
+++ b/test/c/anf_as_pattern.sail
@@ -0,0 +1,19 @@
+default Order dec
+
+$include <prelude.sail>
+
+val "print_endline" : string -> unit
+
+function test () : unit -> option(int) = {
+ match Some(3) {
+ Some(_) as x => x,
+ _ => None()
+ }
+}
+
+function main() : unit -> unit = {
+ match test() {
+ Some(3) => print_endline("ok"),
+ _ => print_endline("fail")
+ }
+} \ No newline at end of file