blob: d78b2b5477d94f6e3f113ecba05d67227f7c3c12 (
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
(* TEST_BELOW
(* Blank lines added here to preserve locations. *)
*)
(* C *)
let foo = ( *);;
(* F *)
let f x y = x;;
f 1; f 1;;
(* M *)
(* duh *)
(* P *)
let 1 = 1;;
(* S *)
1; 1;;
(* U *)
match 1 with
| 1 -> ()
| 1 -> ()
| _ -> ()
;;
(* V *)
(* re-duh *)
(* X *)
(* re-re *)
(* TEST
flags = "-w +A-70";
setup-ocamlc.byte-build-env;
compile_only = "true";
ocamlc.byte;
check-ocamlc.byte-output;
*)
|
