testsuite/tests/typing-ocamlc-i/pervasives_leitmotiv.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

(* TEST_BELOW
(* Blank lines added here to preserve locations. *)


*)

type fpclass = A

module Stdlib = struct
  type fpclass = B
end

let f A Stdlib.B = FP_normal

(* TEST
 flags = "-i -w +63";
 setup-ocamlc.byte-build-env;
 ocamlc.byte;
 check-ocamlc.byte-output;
*)