Merge branch 'sail2' into rmem_interpreter

1 files changed, 21 insertions, 0 deletions

diff --git a/test/c/poly_int_record.sail b/test/c/poly_int_record.sail
new file mode 100644
index 00000000..ebb18713
--- /dev/null
+++ b/test/c/poly_int_record.sail
@@ -0,0 +1,21 @@
+default Order dec
+
+val "print_endline" : string -> unit
+val "print_int" : (string, int) -> unit
+
+struct S('a: Type) = {
+  field1 : ('a, 'a),
+  field2 : unit
+}
+
+function main((): unit) -> unit = {
+  var s : S(range(0, 3)) = struct { field1 = (0, 3), field2 = () };
+  s.field1 = (1, 2);
+  match s.field1 {
+    (x, y) => {
+      print_int("x = ", x);
+      print_int("y = ", y);
+    }
+  };
+  print_endline("ok");
+}