55 lines
356 B
OCaml
55 lines
356 B
OCaml
(* TEST
|
|
|
|
flags = "-w A"
|
|
|
|
* setup-ocamlc.byte-build-env
|
|
** ocamlc.byte
|
|
compile_only = "true"
|
|
*** check-ocamlc.byte-output
|
|
|
|
*)
|
|
|
|
(* 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 *)
|