diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/c/special_annot.expect | 1 | ||||
| -rw-r--r-- | test/c/special_annot.sail | 19 |
2 files changed, 20 insertions, 0 deletions
diff --git a/test/c/special_annot.expect b/test/c/special_annot.expect new file mode 100644 index 00000000..ee8a39c3 --- /dev/null +++ b/test/c/special_annot.expect @@ -0,0 +1 @@ +string diff --git a/test/c/special_annot.sail b/test/c/special_annot.sail new file mode 100644 index 00000000..ca2f5f4c --- /dev/null +++ b/test/c/special_annot.sail @@ -0,0 +1,19 @@ + +union option ('a : Type) = { + None : unit, + Some : 'a +} + +val test : forall ('a : Type). 'a -> option('a) + +function test(x) = + let y : 'a = x in Some(y) + +val "print_endline" : string -> unit + +val main : unit -> unit + +function main() = { + let Some(y) = test("string"); + print_endline(y) +}
\ No newline at end of file |
