44 lines
816 B
OCaml
44 lines
816 B
OCaml
(* TEST
|
|
flags = "-c -nostdlib -nopervasives -dlambda -dno-unique-ids"
|
|
* setup-ocamlc.byte-build-env
|
|
** ocamlc.byte
|
|
*** check-ocamlc.byte-output
|
|
compiler_reference = "${test_source_directory}/anonymous.ocamlc.reference"
|
|
|
|
* setup-ocamlopt.byte-build-env
|
|
** ocamlopt.byte
|
|
*** no-flambda
|
|
**** check-ocamlopt.byte-output
|
|
compiler_reference = "${test_source_directory}/anonymous.ocamlopt.reference"
|
|
*** flambda
|
|
**** check-ocamlc.byte-output
|
|
compiler_reference =
|
|
"${test_source_directory}/anonymous.ocamlopt.flambda.reference"
|
|
*)
|
|
|
|
module _ = struct
|
|
let x = 13, 37
|
|
end
|
|
|
|
module rec A : sig
|
|
type t = B.t
|
|
end = A
|
|
and _ : sig
|
|
type t = A.t
|
|
val x : int * int
|
|
end = struct
|
|
type t = B.t
|
|
let x = 4, 2
|
|
end
|
|
and B : sig
|
|
type t
|
|
end = struct
|
|
type t
|
|
|
|
let x = "foo", "bar"
|
|
end
|
|
|
|
module type S
|
|
|
|
let f (module _ : S) = ()
|