blob: 0029d7b0ff8e2a580200b2f78e820a5bf1fc65c1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(* TEST_BELOW
Filler_text_added_to_pr
eserve_locatio
ns_while_translating_from_old_syntax__Filler_
text_added_to_preserve_locations_
while_translating_from_old_s
*)
(* we intentionally write ill-typed output;
if `-stop-after parsing` was not supported properly,
the test would fail with an error *)
let _ = (1 + "true") + x
(* TEST
setup-ocamlc.byte-build-env;
flags = "-stop-after parsing -dparsetree";
ocamlc_byte_exit_status = "0";
ocamlc.byte;
check-ocamlc.byte-output;
*)
|
