Source

mutated_ocaml / testsuite / tests / basic-float / tfloat_record.ml

Full commit
1
2
3
4
let s = { Float_record.f = Float_record.make 1.0 };;

print_float (Float_record.from s.Float_record.f);;
print_newline ();;