testsuite/tests/generalized-open/clambda_optim.ml


1
2
3
4
5
6
7
8
9
10
11
12

(* TEST
 compile_only = "true";
 no-flambda;
 setup-ocamlopt.byte-build-env;
 ocamlopt.byte;
 check-ocamlopt.byte-output;
*)

module Stable = struct
  open struct module V0 = struct module U = struct end end end
  module V0 = V0.U
end