diff options
Diffstat (limited to 'test/c/anf_as_pattern.sail')
| -rw-r--r-- | test/c/anf_as_pattern.sail | 19 |
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 |
