summaryrefslogtreecommitdiff
path: root/testsuite/tests/letrec-compilation/pr12153_miscompilation_of_recursive_atoms.ml
blob: 10ca5d6ea416bf35fcb69593e3171d36bed88b16 (plain)
1
2
3
4
5
6
7
8
9
10
11
(* TEST *)

let rec empty_int_array : int array =
  let _ = empty_int_array in [||]

let rec empty_float_array : float array =
  let _ = empty_float_array in [||]

module type Empty = sig end
let rec empty_mod : (module Empty) =
  let _ = empty_mod in (module struct end)