Commit fc4eaa70 authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

more tests in 'make bench'

parent 295ccce2
module M
use import int.Int
use import module ref.Ref
let test (a: (ref int, int)) =
{}
let (r,_) = a in r := !r + 1
{ let (x, _) = a in !x = (old !x) + 1 }
end
(*
Local Variables:
compile-command: "unset LANG; make -C ../../.. bench/programs/bad-typing/at1"
End:
*)
module Labels
use import int.Int
use import module ref.Ref
logic fst (x: ('a, 'b)) : 'a = let (x1, _) = x in x1
let test (a: (ref int, int)) =
{}
let (r,_) = a in r := !r + 1
{ !(fst a) = (old !(fst a)) + 1 }
end
(*
Local Variables:
compile-command: "unset LANG; make -C ../../.. bench/programs/good/labels"
End:
*)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment