blob: dd67c54a8a9b0c7e7aafe69d9e426e6a08dec9e0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(* TEST_BELOW
(* Blank lines added here to preserve locations. *)
*)
let f : string A.t -> unit = function
A.X s -> print_endline s
(* It is important that the line below is the last line of the file
(see Makefile) *)
let () = f A.y
(* TEST
readonly_files = "a.ml";
setup-ocamlc.byte-build-env;
module = "a.ml";
ocamlc.byte;
module = "b_bad.ml";
flags = "-warn-error +8";
ocamlc_byte_exit_status = "2";
ocamlc.byte;
check-ocamlc.byte-output;
*)
|