test/c/warl.sail


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

default Order dec

$include <prelude.sail>

val "eq_anything" : forall ('a: Type). ('a, 'a) -> bool

overload operator == = {eq_anything}

function neq_anything forall ('a: Type). (x: 'a, y: 'a) -> bool =
  not_bool(x == y)

overload operator != = {neq_anything}

val "print_endline" : string -> unit

struct WARL_range = {
  rangelist : list(int),
}

let x : WARL_range = struct {
  rangelist = [|0, 1|]
}

function main () : unit -> unit = {
  let y = x;
  assert(x == y);
  assert(x == x);
  let z = y;
  assert(z.rangelist != [||]);
  print_endline("ok")
}