ocaml/test/Moretest/tfloat_record.ml

6 lines
125 B
OCaml
Raw Normal View History

let s = { Float_record.f = Float_record.make 1.0 };;
print_float (Float_record.from s.Float_record.f);;
print_newline ();;